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I listali dei programmi riportati nel testo sono gli originali forniti dall’autore, e ad 
essi si riferiscono i valori di '‘checksum’’. 
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PREFAZIONE 


Questo non è un altro libro sul linguaggio macchina di un popolare microcom¬ 
puter che consuma metà delle sue pagine spiegando tutte le istruzioni macchina del 
6502/6510 ed i loro svariati modi di indirizzamento, con un bieco programma cari¬ 
catore ed una serie di routine in linguaggio macchina presentate al termine e di 
dubbio interesse. L’intenzione di questo libro è quella di fornire ai lettori un solido 
programma in BASIC per immettere nel computer routine in linguaggio macchina 
ed in assembler e, contemporaneamente, offrire una serie di programmi in linguag¬ 
gio macchina che vale la pena possedere. 

Il programma BASIC si chiama Mastercode ed è uno strumento praticamente 
completo per la programmazione in linguaggio macchina, contenente un Monitor 
per permettervi di esaminare e cambiare il contenuto della memoria, un Disassem¬ 
blatore che traduce i programmi in linguaggio macchina nella forma di un assem¬ 
bler, ed infine un File Editor ed un Assembler che permettono lo sviluppo di pro¬ 
grammi in assembler e la loro trasformazione in codice macchina. 

Per quanto riguarda le routine in linguaggio macchina della seconda metà del li¬ 
bro, abbiamo adottato un nuovo approccio. Troverete una raccolta di routine che 
potrete usare per ampliare il BASIC del vostro 64 con 14 nuovi comandi. Oltre ad 
accrescere la potenza del BASIC, vi aiuterà ad imparare le tecniche della vera pro¬ 
grammazione in linguaggio macchina ed il modo in cui il programmatore in lin¬ 
guaggio macchina può sfruttare le routine presenti nell’interprete BASIC del 64. 

Il libro non vuole essere un introduzione al linguaggio macchina. Ciò non signi¬ 
fica che non possa essere usato da principianti. Semplicemente abbiamo dato per 
scontato che voi possediate, o possiate accedere, a qualche altro testo che spieghi 
in dettaglio ogni istruzione del 6502/6510. Riteniamo che, concentrandoci sui pro¬ 
grammi e spiegando le tecniche usate in essi, abbiamo potuto offrire un lavoro di 
maggior valore. Se vi capiterà di controllare qualche strana istruzione sul vostro li¬ 
bro-base del 6502, quello sarà il piccolo prezzo che dovrete pagare. 

Tutti i programmi del libro sono stati controllati, Mastercode in particolare è 
stato provato fino all’esaurimento (nostro). Le routines in linguaggio macchina so¬ 
no state tutte sviluppate su Mastercode, poiché questo era l’unico modo per essere 
sicuri che voi sareste riusciti a fare lo stesso. Se vi imbatterete in errori di qualsiasi 
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tipo la colpa sarà nostra, ma osiamo dire che non dovrebbero essere gravi, vista 
l’attenzione usate nel testing dei programmi. 

Il libro è un lavoro svolto in cooperazione fra due persone di provenienza assai 
differente. David Lawrence scrive principalmente programmi BASIC ed è autore di 
parecchi libri sui microcomputer. Il suo interesse per l’hardware è minimo. Mark 
England studia Ingegneria Elettronica, si trastulla con i chips di silicio come se fos¬ 
sero la sua vera natura ed ha imparato a scrivere in linguaggio macchina quando si 
è bruciata la ROM contenente il BASIC del suo micro. Ha scoperto che non ne a- 
veva più bisogno. 

L’idea venne a David Lawrence, stufo di comperare libri sul linguaggio macchi¬ 
na che non gli fornivano nulla di veramente interessante quando vi lavorava sopra 
seriamente. Mark England è autore della maggior parte della programmazione, 
sebbene non senza imbarazzo. La forma finale de! libro deriva della necessità di 
Mark England di spiegare al suo co-autore di cosa si occupassero i suoi programmi 
e di farli tradurre per i comuni mortali. In questo processo di spiegazione e discus¬ 
sione si è sviluppato uno stile che, crediamo, renda giustizia sia ai programmi sia 
alla necessità dei lettori di comprenderli. 

Altro partner nella stesura del libro è stato il Commodore 64. Questo testo non 
sarebbe stato possibile per molti altri micro. È solo grazie alla filosofia Commodo¬ 
re di aprire la macchina al programmatore, lasciando libero accesso ad una molti¬ 
tudine di routines dell’interprete che altri si sforzano di mettere sotto chiave, che 
siamo riusciti a scomporre e ricomporre il BASIC del 64. Abbiamo avuto discus¬ 
sioni con il 64, ma esso resta una macchina inestimabile per chi voglia andare oltre 
il BASIC. 

Infine, dobbiamo ringraziare il personale dei negozi Microchip di Winchester e 
Southampton, che ci ha fornito aiuto insostituibile al momento di sostituire attrez 
zature e rifornimenti. Dobbiamo ringraziamenti anche a Jane Lawrence, che rego¬ 
larmente, andando a letto mentre noi picchiavamo sulla tastiera a notte inoltrata, ci 
diceva quale meraviglioso lavoro stessimo facendo. 

Speriamo che avesse ragione. 
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CAPITOLO 1 

MONITOR MASTERCODE 


Ogni programma, non importa in quale linguaggio sia scritto, inizia la propria 
vita come una serie di istruzioni codificate ed immagazzinate nella memoria di un 
computer. Nel caso della maggior parte dei linguaggi, le istruzioni che compongo¬ 
no il programma sono totalmente prive di senso per l’unità centrale di elaborazione 
o CPU, il computer-nel-computer che viene alla fine chiamato ad eseguire i compiti 
imposti dal programma. 

Per superare questo problema, a metà fra il programma immesso dall’utente e la 
CPU si troverà un altro programma, molto spesso inserito nella macchina al mo¬ 
mento della fabbricazione, che si occupa di tradurre il programma dell’utente in 
una forma che la CPU sia in grado di comprendere. 

Il programma ‘inserito’ permanentemente, comunque, svolge un’altra funzione, 
dal momento che senza il suo aiuto sarebbe in primo luogo impossibile per l’utente 
inserire le istruzioni. 

Dal momento in cui il computer viene acceso, il programma incorporato inizia il 
suo compito esaminando la tastiera per rilevare un input dal mondo esterno. In se¬ 
guito. raccoglie questi input e li memorizza in modo tale che possano poi venir in¬ 
terpretati dalla CPU. L’utente che scrive programmi in BASIC raramente è con¬ 
scio di questo processo. Le linee di programma vengono scritte, il tasto RETURN 
premuto e le linee diventano parte del programma — a patto che si osservi la gram¬ 
matica BASIC correttamente. 

Non è richiesto alcuno sforzo o pensiero particolare per inserire una nuova istru¬ 
zione, al termine o nel corpo del programma, dal momento che la memoria del 
computer viene automaticamente ridisposta per far posto al nuovo ingresso. 

Quando si passa a programmare in linguaggio macchina la situazione non è cosi 
semplice. Non ci sono facilitazioni incorporate nel computer che permettano di im¬ 
mettere nuove istruzioni dalla tastiera con la sicurezza che saranno automatica- 
mente memorizzate ed il contenuto della memoria riorganizzato per far loro posto. 
Il primo compito di un programmatore in linguaggio macchina è perciò quello di 
realizzare un metodo per introdurre le istruzioni, esaminare la memoria e riorganiz¬ 
zarla per soddisfare le necessità crescenti del programma che si sta sviluppando. 
Questo vale se le istruzioni macchina sono inserite direttamente sotto forma di nu- 
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meri (forma in cui alla fine essi si presentano alla CPlf) oppure per mezzo di uno 
speciale linguaggio detto 'linguaggio assemblatore che facilita 1 immissione e la 
comprensione dei programmi in linguaggio macchina. Lo strumento più semplice 
che permette di realizzare questa gestione della memoria si chiama ‘Monitor’, ed in 
questo capitolo costruiremo un programma Monitor flessibile che permetterà di e- 
saminare singoli bytes di memoria o grossi pezzi di essa e di modificarne a piacere 
il contenuto. 


SEZIONE 1: Inizialtzzazione e Menu 

MODULO 1.1 


10000 

REM*******:* 

********************* 

m 

10020 

REM GENERAL 

IMITI AUSATI OH 


10030 

REM*******:* 

********************* 

m 

10031 

10032 

CI IP 1 • 

ERSE = 16 

IF LEM < PTR$ > +LEH <E$ > 0255 THEN l 

Il llt CM 

:;lr : Od 

10635 
1 0040 

DÉV -- 1 
DEFFN HEXCX 

> « <X AMD 15) +48-01? 

; AMD 15 

10050 

DEFFN DECCX 

> a X~48+<X>57>*7 


10060 

FALSE = 0 : 

TRUE = -1 


10070 

F'QKE 53281, 

.1 : F'OKE 53280, 15 



Lo scopo di questo modulo è quello di inizializzare un certo numero di variabili 
che verranno usate più avanti nel programma. La funzione di queste variabili è 
spiegata brevemente nella tabella presentata in Appendice, ma una piena compren¬ 
sione sarà possibile solo quando le sezioni seguenti de! programma, in cui le varia¬ 
bili vengono usate, verranno presentate. A questo punto è sufficiente semplicemen¬ 
te immettere correttamente il modulo — l’unico effetto visibile della sua esecuzione 
sarà il cambio di colore dello schermo. 

TAVOLA DI CONTROLLO 


10000 

123 

10020 

238 

10030 

123 

10031 

116 

1O032 

164 

10035 

2 

1 0040 

182 

10050 

132 

1 0060 

21 

1 0070 

220 
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Questa tavola di controllo è qui per aiutarvi a controllare che non abbiate fatto 
errori neU’introdurre un programma lungo e complesso. Per capire come usarla, si 
veda l’appendice A, che contiene il programma di controllo da aggiungere al termi¬ 
ne del programma Mastercode quando iniziate, mettendovi in grado di generare le 
vostre tabelle di controllo da confrontare con quelle del testo. 


MODULO 1.2 

19000 REM****************************** 

19 Pi fi 1 REM TEMPQRARY LIMES 

19802 

19fi 10 RETURN 

19011 REM ***EHD OF MONITOR PROGRAM*** 


Questo modulo temporaneo é posto a questo punto nel programma per permet¬ 
tere la chiamata, da parte della routine di inizializzazione, di una sezione del pro¬ 
gramma Mastercode che verrà inserita in seguito. Le linee di questo modulo ver¬ 
ranno in futuro cancellate con l’immissione delle prossime sezioni del programma 
Mastercode. Il formato non é problematico, cosi non c’è bisogno di tabelle di con¬ 
trollo. 


MODULO 1.3 


18100 REM****************************** 

10101 REM CONTROL ROUTINE FOR MONITOR 

10102 REM****************************** 

10110 URTO EXIT TO BfiSIC,MEMORY MOIUFV,MEMORY 
DUMP,MAGHINE CODE EXCUTE 

10111 DATA LORD MAGHINE CODE FILE,SAVE MACHIN 
E CODE FILE 

10120 DATA DISASSEMBLER 
10130 DATA FILE EDITOR 
10140 DATA ASSEMBLER 
10190 DATA END 
10200 RESTORE 
10220 X -= 0 

10230 FRI NT "CBLUKCLH.l- MAGHINE CODE 

MONITOR-[ORNI CCDLLJ " 

10250 READ T$ 

10260 IF T$<>‘‘END" THEN FRI NT TflB<5> X T$ 
•' X= X+l : GOTO 10250 
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10265 IF X<15 THEH FOR V = X TO 15 : FRINT : 
NEXT 

10270 FRI NT "COt'IMHND < 0 X-l " > : ": INF 
IJT T 

10300 IF T<0 OR T>X THEN 10100 
10305 IF T=0 THEN FRINT "CCLH 1 [CDW]CCDW 1 [CDWD 
C CDW ][ RON ] B't'EC ROF ] I CDW il C CDW ] C CDW.1 [ CDW ] " : CLO 
SE 1 : END 

10310 ON T OOSUB 131O0, 13300,13500.. 14360, 1410 
0, 15800,24800,20000 
10320 GOTO 10100 


Ogni programma complesso deve fornire all’utente un mezzo per scegliere quale 
delle molte funzioni dovrà essere usata in seguito. Questa possibilità è realizzata 
grazie ad una routine di controllo o, più semplicemente, un menu. Il menu qui pre¬ 
sentato è più complesso di quanto fosse necessario per il programma corrente. 
Questo è dovuto al fatto che il Monitor è progettato in modo da poter essere più a- 
vanti esteso con le sezioni successive dell’assemblatore Mastercode. Piuttosto che 
dover inserire nuove linee di programma per tener conto delle funzioni extra che 
verranno fornite, il menu si estenderà automaticamente per prendere nota dei nuovi 
nomi delle opzioni immesse nelle frasi DATA. 

TAVOLA DI CONTROLLO 


1 0100 

123 

10101 

101 

10102 

123 

10110 

180 

10111 

62 

101 20 


10130 

170 

1 0 1 40 

65 

10190 

122 

10200 

140 

10220 

122 

10230 

192 

10250 

31 

10260 

210 

10265 

160 

10270 

1 0310 

234 

1 99 

1 0300 

10320 

o 

i rz'cr 

Ijj 

10305 

201 


SEZIONE 2: Uscita su schermo del contenuto della memoria 

In questa sezione del programma esamineremo quelle parti di programma neces¬ 
sarie per permetterci di visualizzare ordinatamente il contenuto di un’area di me¬ 
moria specificata. I moduli commentati qui possono sembrare insignificanti e potre¬ 
ste chiedervi perché non sono stati uniti per formare un solo modulo. Conoscendo 
meglio il programma Mastercode vedrete che singoli moduli possono essere richia- 
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mati da parti differenti del programma. Limitare i moduli ad una ed una sola fun¬ 
zione particolare ci permetterà di risparmiare un certo numero di linee di program¬ 
ma evitando di doverle duplicare in altre sezioni di questo. 


MODULO 1.4 


11000 

11001 REM CONVERT DECINRL TO HEX 

11002 REM!******i ¥M*%mM*M***MM%*m 
11010 T * H ^ H$ =t 

11020 H* = CHR* <FHHEX< T-1UT< T/16>*16)>+N$ 
T = I NT OV16? •• IF T>0 THEN 11020 
11050 RETURN 


Questo modulo di tre linee trasforma un numero decimale in un esadecimale, 
cioè in un numero a base 16 invece che 10.1 programmatori in linguaggio macchi¬ 
na usano quasi universalmente i numeri esadecimali, per la semplice ragione che es¬ 
si si conformano maggiormente al sistema aritmetico binario usato dal computer. 

11 sistema di numerazione esadecimale ha le seguenti 16 cifre: 0123456789 
A B C D E F. I computer più moderni memorizzano i numeri in gruppi di 256 (da 
0 a 255), e la ragione per cui resadecimale è più conveniente è che il massimo valo¬ 
re esprimibile con due cifre è 255 (15* per la cifra più significativa e 15 per l’altra). 
Usare gli esadecimali significa poter realizzare una rappresentazione molto più or¬ 
dinata dei valori memorizzati. Inoltre, il sistema binario usato dal computer implica 
che molto spesso numeri esadecimali significativi come 1000, (o 4096 in decimale), 
lo siano anche in termini di operazioni del computer. Iniziare a pensare in esadeci¬ 
male è un importante aiuto alla comprensione del funzionamento del micro. 


Commento 

11020: l’operato di questa linea è più comprensibile attraverso un esempio. Suppo¬ 
nete che con la variabile H si sia memorizzato il numero decimale 4875. Per con¬ 
vertirlo in esadecimale, dobbiamo prima riconoscere che è composto da 1* 1613 
(16f3=4096) + 3*1612 (1612=256) + 0*1611 (161 1 = 16) + 11*1610(1610=1). 

Questa linea isola ogni unità di queste differenti potenze di 16 e le traduce quindi 
in un carattere che rappresenta la cifra esadecimale appropriata, usando la funzio¬ 
ne definita dall’utente FNHEX (vedi linea 10040) per selezionare il carattere cor- 
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retto. Nel caso di 4875, il numero esadecimalc corrispondente sarà 130B. Per le ci¬ 
fre con un valore compreso fra 0 e 9, FNHEX restituisce semplicemente il valore 
dell’appropriato carattere 0-9 (codici carattere: 48-57). Se il valore della cifra è fra 
10 e 15, allora si aggiunge 7 al codice carattere per portarlo nell’ambito A-F dell’in¬ 
sieme di caratteri del 64. 


TABELLA DI CONTROLLO 


11000 128 11001 167 11002 123 
11010 170 1.1020 74 11050 142 


MODULO 1.5 


11950 REM<f'»**+*if+^****+*****>:’*****:++'**^ 

11951 REM CONVERT HEX IH H$ TO DEC IH H 

1 1 952 PEmMwmwmMwmMMMmmmM 
11975 ERR = FALSE : H = 0 : IF LEH<H$>=0 THEM 

12030 

11930 FOR X " 1 TO LEH(HT) 

11990 T = FHDEC'-.RSC <MID$ 1))) : H = H*B 

ASE+1 

12010 IF T>BASE-1 OR TC0 THEH ERR = TRUE 
12020 NEXT X 
12030 RETURN 


Sebbene sia più comodo introdurre numeri esadecimali, l’uso del BASIC implica 
che essi debbano venir trasformati in numeri decimali per gli usi del programma. 
Questo è realizzato dal presente modulo. 


Commento 

1 1975: in tutto il programma si farà uso della variabile ERR (errore) per indi¬ 
care che è stato scoperto un errore. Il valore normale di ERR sarà 0, che è il valore 
assegnato alla variabile FALSE nella routine di inizializzazione. Ogni volta che un 
errore viene scoperto, ERR è posta al valore TRUE, che è —1. Il vantaggio dell’uso 
di questi valori di ‘verità’ è che ERR può essere utilizzata in frasi come ER 
R—(A >50). L’espressione fra parentesi ha un valore a seconda che sia vera o falsa. 
Se è falsa avrà valore 0, se vera —1. 

In questo modo la variabile ERR può essere usata per mostrare che qualcosa 
non va in modo molto più economico che non usando frasi del tipo: IF A >50 
THEN ERR=—1. 
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11980 - 12020 : esaminando successivamente ogni carattere della stringa HS, , que¬ 
sto ciclo estrae il valore decimale del carattere esadecimale usando la funzione de¬ 
finita dall’utente FNDEC (linea 10050). Dal momento che il ciclo parte da sinistra, 
il risultato corrente va moltiplicato per 16 per ogni successiva cifra esadecimale. Se 
viene introdotto un carattere al di fuori dell’ambito 0-F, la variabile ERR viene po¬ 
sta a —1 per segnalarlo ai moduli successivi. 


TAVOLA DI CONTROLLO 


11951 230 11952 12: 
11980 128 11990 40 
12020 250 12030 14; 



MODULO 1.6 


12050 REM**'******** * ****** $* *** ******** 

12051 REM INPUT START ADDRESS 

12052 * * .* * % % % * * % 

12057 H$ = "" 

12060 INPUT "START ADDRESS < IN HEX ) : "J Hf 
•' 00 SUE 11950 

12080 IF ERR OR H<0 OR H>65535 THEN 12060 
12090 AD ~ H : RETURN 


Per visualizzare sullo schermo il contenuto di un’area di memoria è necessario 
specificare la locazione di partenza in memoria. Questo viene fatto in esadecimale, 
l’input viene poi tradotto in decimale dal modulo precedente. 


TAVOLA DI CONTROLLO 


12058 123 12051 19 12852 123 
12057 162 12960 50 12088 128 
12096 199 


MODULO 1.7 


11850 REM****************************** 
1185.1 REM RSK CONTINUE ? 

11852 REM***'*'***'* * * * * * * * * * * * * * * * * * * * * * * 
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11358 T'4> “ "" 

11860 INPUT "CONTINUE C V/N ) : "J T$ 

11870 IF T$~"V" THEN CO = TRUE ■' GOTO 11883 
11880 IF T$0 " H" THEN FRI NT "[CUP]".; : GOTO 1 
185B 

11890 CO = FALSE 
11895 RETURN 


Questo modulo viene richiamato quando una zona di memoria è passata su vi¬ 
deo per chiedere all’utente se desidera proseguire con un’altra. 


TAVOLA DI CONTROLLO 


11850 

1. li!'.:! 

11851 

114 

i ve¬ 

11858 

174 

1 1868 

34 

ne 

11880 


11890 

233 

118: 


MODULO 1.8 


11100 REN*»if***.4i*.f'*********+:**-4:***;+:*if;** 

11101 REM BVTE INTO HE'/ 

11102 REM*#^*****'**#****:*+:**r#***r**** 
11110 H = F'EEK < AB ) ^ AD = RD+1 

11120 GOSUB 11000 

11130 IF LEN<H$K2 THEN H$ = "0"+H$ 
11140 02$ = G2$+H$ 

11150 RETURN 


Questo modulo esegue concretamente il compito di estrarre un valore dalla loca¬ 
zione di memoria specificata dalla variabile AD. Quindi viene chiamato il modulo 2 
per trasformare il valore in esadecimale. Le cifre esadecimali composte da un unico 
simbolo vengono completate con uno zero in prima posizione, in modo da assicu¬ 
rare un formato standard di due cifre per ogni byte della memoria. Infine il numero 
esadecimale viene sommato a 02$, per mostrare sullo schermo il contenuto della 
memoria. 
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TAVOLA DI CONTROLLO 


11100 12 : 
11110 35 
11140 82 


11101 66 11182 123 
11120 153 11130 223 
11150 142 


MODULO 1.9 



13310 GOSUB 12050 

13320 PRINT "CCLHD" : FOR XI = 1 TO 18 : H = 
AD : GOSUB 11000 

13340 02$ = "" : 01$ = H$ : 03$ = "" 

13350 FOR X2 = 0 TO 7 

13360 GOSUB 11100 : 02$ = 02$+" " 

13375 IF H>31 AND H<95 THEH 03$ = 03$+CHR$ <H 
) : GOTO 13380 
13377 03$ = 03$+".” 

13380 HEXT X2 

13390 PRINT 01$ TRB<5> 02$ TAB(31> 03$ 

13400 NEXT XI- 

13410 PRINT : GOSUB 11850 : IF CO THEH 13320 
13440 RETURN 


Abbiamo ora presentato tutti i moduli necessari per definire un indirizzo iniziale 
e per prelevare dati dalla memoria. Possiamo ora procedere con la parte di pro¬ 
gramma che effettivamente fa qualcosa. Avendo definito un punto di inizio, questo 
modulo visualizza sullo schermo il contenuto di un’area di memoria. 


Commento 

13320: il ciclo XI sarà usato per stampare 18 linee, ciascuna contenente otto valo¬ 
ri letti in memoria a partire dall’indirizzo ora memorizzato in AD. 


13350-13380: i valori esadecimali forniti dal modulo precedente vengono memoriz¬ 
zati nella stringa 02$. Se il valore contenuto in una particolare locazione di memo¬ 
ria è il codice ASCII di una lettera o di una cifra, quel carattere verrà immagazzi¬ 
nato nella stringa 03$, per venir visualizzato a fianco dei valori relativi ad esso. 
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Nell»? massima parte dei casi i caratteri visualizzati non avranno senso, poiché ri¬ 
sulta perfettamente casuale il fatto che un numero rappresenti il codice di un carat¬ 
tere stampabile. In ogni caso, quando si esaminano aree di memoria come l’area 
delle variabili del 64 oppure la struttura del programma BASIC stesso, o un pro¬ 
gramma macchina contenente stringhe, questa caratteristica risulterà indispensabi¬ 
le per dare un quadro esatto di ciò che la memoria contiene, dal momento che ver 
ranno visualizzate tutte le stringhe in essa presenti. 


TAVOLA DI CONTROLLO 


13300 

123 

13301 129 

13302 

123 

13310 

.1.65 

13320 246 

13340 

173 

13350 

104 

13360 100 

13375 

177 

13377 

90 

13380 44 

13390 

89 

13400 

43 

13410 86 

13440 

.142 


R iassunto 

Una volta introdotta nel computer questa sezione, avrete la base funzionante 
dell’intero programma. Nelle prossime sezioni, troverete impiegati molti dei moduli 
già descritti, infatti funzioni come la conversione in esadecimale sono comuni a tut¬ 
te loro. Prima di procedere col resto del programma, familiarizzatevi con quanto 
visto finora. Esaminate ad esempio l’area di memoria che contiene il programma 
stesso (e che inizia alla locazione 801 esadecimale) e l’area delle variabili. Questa 
sezione del monitor è di per sè un potente strumento per scoprire i segreti della me¬ 
moria del 64. 


MONITOR: Visualizzazione della memoria dall’indirizzo 801 esad. 


801 

25 

03 

10 

27 

8F 

2R 

2R 

28 

V.. « 

809 

2R 

2R 

2fl 

2R 

2F! 

2fì 

2 fi 

28 

******** 

811 

2R 

2 FI 

2 Fi 

2 Fi 

2fl 

2FI 

2R 

2R 


819 

2 Fi 

2fl 

2R 

2 fi 

2H 

2fi 

28 

2R 


821 

2R 

2fì 

28 

00 

42 

08 

24 

r 


829 

8F 

28 

47 

45 

4E 

45 

52 

41 

. GENERA 

831 

4C 

20 

49 

4 E 

49 

54 

43 

41 

L IMITIR 
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839 

4C 49 

53 41 

54 

49 

4F 4E 

LI SPITI OH 

841 

H0 66 

88 2É 

f 

8F 

20 20 

«unni. $$ 

849 

2fi 2fl 

20 20 

20 

20 

20 20 

.A; $ >ji. ;ljl; jfj»; -l|i; *{► A 

851 

2lT 20 

20 20 

20 

20 

20 20 

$ >jfr & :«jt; }{► $ $ f*}l* 

859 

20 20 

20 20 

20 

20 

20 20 

4': H 1 :4': '4:^ 

861 

20 20 

20 20 

00 

74 

08 2F 

4 * + + . ' 

869 

ci (' 4 d 

41 53 

45 

20 

B2 20 

■'ERSE . 

871 

31 36 

00 9B 

08 

30 

27 8B 

16. . . 0 ■'. 

879 

20 C3 

28 50 

54 

52 

24 29 

. (PTR-T > 

881 

00 C3 

28 45 

24 

29 

B3 B.1 

„» ( ET : ) . 

889 

c_- 

. "i r> . j 

35 29 

07 

20 

9C 20 

255 . 

CONTI 

NUE C 

V/N ) 






SEZIONE 3: Modifiche della memoria 

Avendo imparato come esaminare la memoria, procediamo ora al passo succes¬ 
sivo, cioè ad alterarne il contenuto. In questa sezione presentiamo altri due moduli 
che vi permetteranno di muovervi avanti e indietro nella memoria, visualizzando il 
contenuto dei singoli byte e, se lo desiderate, di alterare il contenuto del singolo by¬ 
te visualizzato. 

MODULO 1.10 

13000 REmmmwmmmmmmmmmmm 

13001 REM GEI 1 BVTE 

13002 REM*^**#*.f***3t:»:»:***»:##****JM5#*5)s:f: 

13007 H$ = "" 

13010 INPUT "BVTE < IN HEX > : H$ 

13030 GOSUB 11:350 

13040 ÌF ÈRR OR H<0 OR H>255 THEH FRINT 
"[CUP]" : GOTO 13000 
13050 RETURN 

Sulla base dei moduli precedenti dovrete avere poche difficoltà nell’aceertarvi 
che questo modulo accetta un valore esadecimale compreso fra O FF (0-225), atti¬ 
va una traduzione in decimale e restituisce questo valore al modulo successivo, da 
cui è richiamato. 


II 

















TAVOLA DI CONTROLLO 


1 3000 

123 

13001 52 

13002 123 

13007 

162 

13010 171 

13030 173 

13040 

192 

13050 142 



MODULO 1.11 


13100 

13101 REM MEMORV MQDIFV 

13102 mimwmMmmMmmMMMMmM 
13110 GOSUB 12050 

13120 H = fili : GOSUB 11000 : PRIMI H$ TR 
BC6) "/" : 02$ - "" 

13140 GOSUB 11100 : RD = RD--1 : PRIMI H$ 
SPC < 6 > .!■ 

13150 T$ = "" 

13160 INPUT " I > E! : T$ 

13170 IF I$="+" RMD RD<65535 THEM RD = R 
D+l : GOTO 13120 

13130 IF T$="-" RMD RD>0 THEM RD = RD-1 
: GOTO 13120 

13190 IF T$~"E" THEM RETURH 

13200 IF T*0"I" THEM PRI NT " C CUP ] [ CUP ] " 

: GOTO13120 

13210 GOSUB 13000 : F'OKE RD..H : GOTO 131 
20 


Lo scopo di questo modulo è quello di permettere all’utente di muoversi in me¬ 
moria da un indirizzo di partenza specificato e modificare il contenuto di singoli by¬ 
te. Gran parte del modulo si occupa di far visualizzare sullo schermo in modo com¬ 
prensibile i valori di ciascun byte e di muoversi in memoria. I cambiamenti del con¬ 
tenuto della memoria sono eseguiti dall’ultima linea, che richiama anche il modulo 
precedente. 


Commento 

13120-13140: ottenuto l’indirizzo di partenza, viene visualizzato l’indirizzo del by¬ 
te corrente, insieme al valore contenuto. 
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13160-13210: il modulo fa uso di quattro simboli particolari, o ‘prompt’: *+’ signi¬ 
fica passaggio al prossimo byte, — ’ significa passaggio al byte precedente ed ‘E’ si¬ 
gnifica uscita da questo modulo. Il prompt rimanente è ‘I’, che serve a richiamare il 
modulo precedente e permette di inserire un nuovo valore nel byte corrente. 


TAVOLA DI CONTROLLO 


13100 l23 
13110 165 
13150 174 
13180 116 
13210 229 


13101 112 
13120 220 
13160 192 
13190 211 


13102 123 
13140 17 
13170 75 
13208 244 


MODULO 1.12 


13500 REM#*#*####*#*#*#**############*# 

13501 REM MAGHINE CODE EXECUTE 

13502 REM*#***#*****##*#**###*#******#* 
13510 GQ3UB 12050 : SVS RD = RETURN 


Qualora desideriate usare il monitor per introdurre programmi direttamente in 
memoria in forma esadecimale, questa routine di una linea vi permetterà di chiama¬ 
re la routine di linguaggio macchina senza uscire dal programma. È cosa saggia 
non far eseguire programmi in linguaggio macchina prima di aver salvato il prò 
gramma introdotto fino a quel momento. 

TAVOLA DI CONTROLLO 

13500 123 13501 18 13502 123 

13510 106 


SEZIONE 4: Salvataggio e caricamento del file 

Ora che siete in grado di immettere nuovi valori in memoria e quindi di sviluppa¬ 
re un programma in linguaggio macchina, dovete anche avere la possibilità di sal¬ 
vare quei programmi che in seguito svilupperete ed immetterete. Dovete inoltre a- 


13 





vere la possibilità di richiamare quei programmi da disco o nastro, a seconda del 
mezzo con cui li registrerete. Le quattro brevi routine seguenti hanno il compito di 
offrirvi queste possibilità. 


MODULO 1.13 


11250 REmmmmmmmmmpmmmmmm 

11251 REM INPUT FILE NR11E 

11252 GOSUB 25500 : IF BEV=4 THEN 11290 
11255 IN* = "" 

11260 INPUT " FILE NANE : "J IN* : T - L 
EN<IN*> 

11280 IF T>16 OR T<0 THEN FRINT "CCDW3FI 
LE FIRME INVALIH" : GOTO 11260 
11230 RETURN 


Il salvataggio di un gruppo di informazioni su nastro o disco avviene raggnip¬ 
pandole in forma di ‘file’, cioè una locazione dotata di nome che deve essere anzi¬ 
tutto ‘aperta’ prima che le informazioni vi vengano immesse e quindi chiusa quan¬ 
do tutte le informazioni necessarie sono state memorizzate. 

Quando le informazioni vengono richiamate dev’essere specificato il nome del fi¬ 
le. Questo modulo permette di inserire il nome di un file. 


TAVOLA DI CONTROLLO 


11252 113 
11289 216 


MODULO 1.14 


11250 123 11251 132 
11255 241 11260 137 
11290 142 


11200 REmmmmwmmmmm'mmmmmm 

11201 REM INPUT FINISH RDDRESS 

11202 

11205 H* ® "" 
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11210 INPUT "FINISH flDDRESS < IN HEX> : 

"H$ : GOSUB 11950 

11230 IF ERR OR H<9 OR H>65535 THEN 1120 
0 

11240 ER “ H : RETURN 


1 programmi linguaggio macchina che in seguito svilupperete con l’aiuto dei pro¬ 
grammi di questo libro saranno poi contenuti in blocchi di memoria. Per salvarli il 
programma necessita di due informazioni: il punto di partenza ed il termine del 
blocco. 

Abbiamo già una routine che ottiene l’indirizzo iniziale, questa esegue la stessa 
funzione per l’indirizzo finale. 


TAVOLA DI CONTROLLO 


11200 123 11201 70 11202 123 
11205 162 11210 101 11230 123 
11240 200 


MODULO 1.15 


14100 

14101 REM MUCHINE CODE SflVE 

14102 rem#***************************** 

14110 GOSUB 11250 : GOSUB 12050 : GOSUB 
11200 

14115 T$ = "N” : IF DEV*8 THEN INPUT "OV 

EPURI TE EHISTIMO FILE < V/N > : T$ 

14116 IF Tf="V" THEN IN$ == "@0:"+IN$ 
14120 IF DEV=8 THEN IN* = IN*+",S,H" 
14125 IF SFD-ER THEN 14198 

14130 OPEN 2,BE'v'..2, IN$ : PRINT# 2,RH : P 
RINT# 2,ER 

14150 FOR X = RH TO Efl : PRINT# 2..PEEKCX 
> •• NEXT : PRINT# 2 '■ CLOSE 2 
14198 RETURN 
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Ora che siamo in grado di dare un nome al file in cui sarà contenuta l’informa¬ 
zione presente in un’area di memoria e di specificare il punto di inizio e di termine, 
possiamo procedere ed immettere questo modulo, che memorizzerà l’informazione 
su nastro o disco. 

Commento 

14125: questa linea controlla semplicemente che l’utente non abbia definito un 
blocco di memoria la cui locazione finale sia precedente rispetto a quella iniziale. 

14130 : viene aperto un file, in questo caso un file d’uscita, e la destinazione dell’in¬ 
formazione viene stabilita in base al valore della variabile DEV (device = dispositi¬ 
vo). Nel listing di questo programma essa è posta uguale ad 1 (linea 10035), cosa 
che dirige l’uscita verso il registratore a cassette. Se usate un disco, DEV dovrebbe 
essere posta uguale ad 8 nella linea 10035. Una volta aperto il file d’uscita, le prime 
due informazioni da inserirvi sono l’indirizzo iniziale (AD) e finale (EA). Più avanti 
nel programma verrà aggiunta la possibilità di cambiare a piacere il numero di di¬ 
spositivi. 

14150: il contenuto di ogni byte del blocco di memoria da salvare viene memoriz¬ 
zato singolarmente nel file. 


TAVOLA DI CONTROLLO 


14100 123 
14110 224 
14120 179 
14150 161 



14102 

14116 

14130 



MODULO 1.16 


14300 REmmmmmmmmmmmmmmmw. 

14301 REM MAGHINE GODE LORD 


14320 OPEN 2,DEV, 0 ,INT : INPUT# 2,SA,EA 
: IF ST THEN CLQSE 2 : RETURN 
14350 FOR X = SA TO EA : INPUT# 2,-T : PO 
KE X >T : NEXT : CL03E 2 ■ RETURN 
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Questo modulo è semplicemente l’immagine speculare del precedente. Invece di 
mettere informazioni in un file, questo modulo preleva dal file informazioni prece¬ 
dentemente memorizzate e le reinserisce nella memoria del computer. 


TAVOLA DI CONTROLLO 

14300 123 14301 31 14302 123 

14310 206 14320 174 14350 50 


Sommario 

Una volta immesso l’intero monitor, siete in grado di sfruttarlo, sebbene tutta la 
sua potenzialità verrà ben compresa quando immetterete il resto del programma 
Mastercode. Provate ad immettere una nuova linea: 0A=13. Chiamate l’opzione 
del menu che permette di cambiare la memoria ed alterate il contenuto del byte 805 
immettendovi l’esadecimale 8F (143). Listate il programma e vedrete che la vostra 
prima linea è cambiata in una frase di commento (143 rappresenta REM nel file di 
programma). Se non siete ben sicuri di ciò che state facendo è utile che non cer¬ 
chiate ora di modificare troppe altre locazioni di memoria e certamente non prima 
che abbiate salvato correttamente la vostra versione finale del monitor. Se volete 
fare un po’ di confusione provate a modificare alcuni dei byte attributo dei colori 
nelle posizioni D800-DBFF esadecimali, della memoria colore dello schermo. Er¬ 
rori commessi in questa zona non saranno disastrosi. 
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CAPITOLO 2 

DIS ASSEMBLER MASTERCODE 


Dopo aver inserito il programma monitor, che vi permette di esaminare aree di 
memoria e di cambiarne il contenuto, proseguiamo col passo successivo, che vi per¬ 
metterà di tradurre il contenuto di un’area di memoria in cui si trovi un programma 
in linguaggio macchina in una forma più comprensibile. Questa forma più ‘leggibi¬ 
le’ per un programma in codice macchina si chiama linguaggio assemblatore. 

11 vantaggio di lavorare con il linguaggio assemblatore è che usando i POKE per 
immettere numeri direttamente in memoria possiamo immettere un programma in 
linguaggio macchina, ma non c’é una corrispondenza immediatamente evidente fra 
i numeri inseriti o riletti dalla memoria e le operazioni che il programma eseguirà. Il 
programma risulta semplicemente una lista di numeri e solo un numero molto ri¬ 
stretto di programmatori è in grado di leggere un programma scritto in quella for¬ 
ma senza usare una tabella di riferimento contenente i codici ed il loro significato. Il 
linguaggio assemblatore fornisce un mezzo per immettere istruzioni significative 
anche per l’utente con poca pratica, che danno una rappresentazione esatta di ogni 
istruzione macchina del programma. In altre parole il linguaggio assemblatore con¬ 
siste di una serie di istruzioni, o codici mnemonici, corrispondenti alle singole ope¬ 
razioni macchina che il chip 6502/6510 è in grado di riconoscere ed eseguire. 

Le istruzioni in linguaggio assemblatore saranno normalmente composte da due 
parti: 

1) un codice operativo (opcode) che specifica il tipo di operazione che si chiede al 
chip 6502/6510 di compiere, come spostare un numero da un luogo ad un altro in 
memoria, confrontare due valori o eseguire un’operazione aritmetica su di un valo¬ 
re; 

2) una volta definito il tipo di operazione da eseguire è necessario definire il numero 
su cui l’operazione dev’essere compiuta. Questa parte dell’istruzione è nota come o- 
perando e può consistere di un numero su cui si agirà direttamente o dell’indirizzo 
di memoria di un numero su cui si dovrà operare. 
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Una tipica istruzione in linguaggio macchina, su cui si basa la traduzione del lin¬ 
guaggio assemblatore, consisterà perciò di un byte che specifichi l’opcode e di uno 
o due byte usati per ritrovare il numero su cui eseguire l’operazione. Alcuni tipi di i- 
struzione necessitano di un solo byte, quello che precisa il solo opcode, dal momen¬ 
to che esse implicano che il valore su cui operare sia rappresentato da una locazio¬ 
ne prefissata che non è necessario menzionare esplicitamente. 

Per tradurre un programma dal codice macchina in linguaggio assemblatore c’è 
bisogno di un programma che sia in grado di identificare un opcode e quindi di de¬ 
cidere quanti dei successivi byte di memoria (0,1 o 2) rappresentino l’operando as¬ 
sociato a quel codice operativo. Un programma in grado di far questo è detto ‘di¬ 
sassembler’. Il suo effetto è quello di estrarre numeri incomprensibili dalla memoria 
e di tradurli in qualcosa che con un po’ di pratica possa essere compreso dall’uten¬ 
te. 

La spiegazione breve e molto semplificata data sopra richiederà un po’ di atten¬ 
zione se questa è la prima volta che sentite parlare di un disassembler. Una volta 
però che abbiate ben chiaro il concetto nella vostra mente dovreste avere pochi 
problemi nel comprendere le basi su cui lavora la seguente sezione del programma 
Mastercode. Per mezzo di una serie di tabelle memorizzate in stringhe, il program¬ 
ma è in grado di identificare le istruzioni in linguaggio macchina di una specifica a- 
rea di memoria e di visualizzare il tipo di operazioni ed i loro operandi in linguaggio 
assemblatore. Il programma può essere usato in almeno due modi: 

a) per l’utente che sta sviluppando programmi in linguaggio assemblatore, il disas¬ 
sembler permette di controllare e correggere più facilmente il programma in memo¬ 
ria durante il procedimento di immissione; 

b) per coloro che vorrebbero approfondire la loro esplorazione della memoria del 
Commodore 64, il programma cosi com’è è in grado di dare una traduzione com 
pietà della ROM della macchina, cioè del programma incorporato e permanente 
che fa in pratica funzionare la macchina. In questo modo si può giungere ad una 
comprensione migliore del lavoro interno del computer ed è possibile esaminare il 
modo in cui le singole routine della ROM possano venir usate effettivamente nei 
programmi utente. 



SEZIONE I: Predisposizione delle tabelle 


MODULO 2.1 


12200 R E M ******++ + * * * + M + + * * * :+: + * % * * * * * #+ 

12201 REM HEX LOFI BER 

12202 REmmmmmmmmmmmmmmmw. 

12210 T 1$ a "" 

12220 FOR XI = 1 TO LEM f. T$ > STEP 2 
12230 Tl$ T1$+CHR$ <FNDEC<flSC <MID$ <T 
*>X1.1))>*16+FNDEC<ASC <MIB* CT$,X1+1.1) 
]> ) > 

12260 NEXT XI 
12270 RETURN 


Il vero scopo di questo modulo non sarà chiaro finché non verranno spiegate le 
tabelle del modulo successivo. La sua funzione è quella di estrarre i valori dalle ta¬ 
belle e di compattarli in stringhe. 1 valori delle tabelle sono stati disposti nella forma 
di valori esadecimali a due cifre (cioè numeri nell’intervallo 0-255 decimale). Que 
sto modulo converte coppie di valori esadecimali in singoli caratteri ASCII. I carat¬ 
teri ottenuti in questo modo possono essere raggruppati in una stringa (TIS). 

TAVOLA DI CONTROLLO 

12200 123 12201 107 12202 

12210 223 12220 216 12230 

12260 43 12270 142 



MODULO 2.2 


19000 

19001 REM INI TIFOSE DECODER TflBLES 

19002 REM*** # % % # '+ % % % * '+: .++. + 

19005 ERSE = 16 


19007 DEFFN DEC OC' = X-48+<X>57)#7 

19010 DIM TR$<4) 

19011 T$ = M 002238383322023824220; 


8220238" 
19012 Tf- 


38382202380D2238383 


8220238" 
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19013 Tf - T$+"1C01383806012738260127380 
6012738" 

19014 Tf ~ T$+"07013838380127382C8138383 
8012738" 

19015 Tf = T$+"2917383838172038231720381 
B172038" 

19016 Tf e T$+"0B173838381720380F1738383 
8172038" 

19017 T$ = T$+"2800383838002838250028381 
B00 2838 11 

19018 GOSUB 12200 : Tflf<0> « Tlf 

19019 Tf - "0C003838380028382E0038383 

8002838" 

19020 Tf = T$+ "382F3838312F3038163835383 
12F3038" 

19021 Tf - Tf+"032F3838312F3038372F36383 
82F3838" 

19022 Tf ~ Tf+"1F1D1E381F1D1E38331D32381 
FIDIE38" 

19023 Tf - T$+ " 041D38381F1B.1E38101D34381 
F1ME38" 

19024 Tf = Tt+ " 13113838131114381 fi 1115381 
3111438" 


19025 Tf « Tf+"08113838381114380E1138383 
8111438" 

19026 GOSUB 12200 : Tflf<0> = TRf<0)+Tlf 

19027 Tf = " 122B3838.122B1838192B21381 


22B1838" 
19028 Tf 


Tf+"052B3838382B18382D2B38383 


82B13" 

19029 GOSUB 12200 = TflfCS) = TRf<0)+Tl$ 

19030 Tf -• "1711166112011CC1381114411 

BtllRRi" 

19031 Tf * Tf+"C71166611201CCC1381114411 


B111RR1" 


'19032 Tf = T$+"171116611201CCC1381114411 
BU1RR1" 


19033 Tf ~ Tf h- "1711166112019CC1381114411 


B111RR1" 

19034 Tf 
BillRII" 

19035 Tf 
BllfiRBl" 


Tf+"171166611111CCC1381144511 
Tf+"272166611211CCC1381l44511 


19036 Tf = Tf+"271166611211CCC1381114411 
B111RR1" 


19037 Tf « Tf + " 271166611211 CCC 138 5.114411 
B11 IR" 
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T1$+CHR$ <1 


19038 GOSUB 12280 : TfW<l> = 


60? 

19040 TR$(2> ~ "RDURMBRSLBCCBCSBE 

QBTTBMIBNE BPL BRKBVCBV3“ 

Ì9041 THf(2? = Tftf >■. 2 > + " CLCCLDCL. ICLVCMPCP 
«rPYDECDEXDEYEORINCINX" 

13042 = Tfl$<2>+"INYJMPJSRLDflLDXLD 

VLSRNOPORflPHftPHPPLflPLP" 

13043 TR$<2? = Tfl$(2? + "RGLRORRTIRTSSBCSE 
r.sÉDSE I STflSTXSTVTflXTHV" 


13044 THf- ( 2 ? = T Rf : < 2 ? + "TSXTXRTXSTVfl???" 
13046 RETURN 


Queste tabelle apparentemente scoraggianti sono in realtà assai semplici una 
volta che si sia ben compresa la spiegazione generale data sopra del lavoro di un di¬ 
sassembler. 

Le tre sezioni della tabella definite fra le linee 19011 e 19029 vengono usate per 
creare, attraverso chiamate al modulo precedente, una riga della matrice TA$, con 
tenente caratteri il cui codice cada nell’intervallo 0-56. Questi valori puntano ad 
una tabella seguente contenente i nomi, in linguaggio assemblatore, dei 56 tipi di 
codice operativo disponibili quando si esprima un’istruzione macchina in linguag¬ 
gio assemblatore, più un codice usato per segnalare che è stato rilevato un codice 
operativo non valido. Nel codice macchina del 6502/6510 esistono più di 150 codi¬ 
ci operativi possibili, perché allora solo 56 rappresentazioni mnemoniche in lin¬ 
guaggio assemblatore? La risposta a questa domanda è che i codici operativi del 
linguaggio macchina possono essere raccolti in gruppi, ad esempio quelli che cari¬ 
cano un valore nell’accumulatore, che abbiano una rappresentazione mnemonica 
comune. All’interno di ciascun gruppo sussistono però grosse differenze fra gli ope¬ 
randi. cioè nel modo di reperire il valore da elaborare. Quindi ogni codice operativo 
sarà associato ad un unico tipo di operando, mentre un codice mnemonico potreb¬ 
be venir associato a parecchi tipi diversi di operando al momento di tradurre il pro¬ 
gramma macchina in linguaggio assemblatore. 

Cosi un codice operativo di valore 127 avrebbe un punto di ingresso nella posi¬ 
zione 127 di TAS (0). Il codice ASCII del carattere contenuto in quella posizione 
verrà usato per attribuire un valore fra 0 e 56. Questo valore sarà poi utilizzato per 
puntare a tre caratteri della sezione di tabella definita nelle linee 19940-19944. 
Queste cinque linee di testo, una volta suddivise in gruppi di tre caratteri, rappre¬ 
sentano tutte le possibili rappresentazioni mnemoniche del linguaggio assemblatore 
6502/6510 per i vari codici operativi. 
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Le rimanenti sezioni delle tabelle, definite dalle linee fra 19030 e 19037 danno il 
tipo di operando associato al particolare codice operativo. I tipi di operando ver¬ 
ranno spiegati in maggior dettaglio in seguito. 


SEZIONE 2: operandi e loro tipi 

Come detto nella prefazione, questo libro non intende fornire un’introduzione al 
linguaggio macchina del 6502/6510. Si presuppone che chi voglia usare questo li¬ 
bro sia già in parte a conoscenza di un certo numero di concetti che stanno alla ba 
se della programmazione in linguaggio macchina o in linguaggio assemblatore op¬ 
pure che questo libro venga usato insieme ad un testo introduttivo generale sul fin 
guaggio assemblatore del 6502/6510 che spieghi le varie funzioni disponibili sul 
chip in questione. È comunque necessario a questo punto per la comprensione del 
programma fornire qualche breve spiegazione sul modo in cui il chip 6502/6510 in¬ 
terpreta gli operandi, cioè i valori delle locazioni di memoria su cui è in grado di 
compiere le sue 56 operazioni. 

Il chip 6502/6510 è in grado di riconoscere 11 differenti metodi, noti come modi 
di indirizzamento, per ottenere il valore su cui operare in un programma in codice 
macchina. Ogni singolo codice operativo richiede l’uso di uno di questi 11 metodi 
diversi. Il programma disassembler dev’essere in grado di riconoscere il codice ope¬ 
rativo e quindi di estrarre da esso il tipo di indirizzamento da utilizzare. 

Le due forme più semplici di indirizzamento sono l’indirizzamento in accumula¬ 
tore e l’indirizzamento implicito: 

1) Indirizzamento in accumulatore: alcuni codici operativi specificano, senza espli¬ 
citare ulteriormente un valore o un indirizzo di memoria, che l’operazione da com¬ 
piere deve essere eseguita sul contenuto del registro accumulatore della CPU. Un 
esempio di, questo tipo di indirizzamento può essere lo ‘shift left accumulator’ 
(SLA in linguaggio assemblatore), che fa scorrere i bits 0-6 dell’accumulatore verso 
sinistra, moltiplicando cosi per due il valore rappresentato da quei bit. Quando si 
specifica un’operazione di questo tipo non c’é bisogno di ulteriori precisazioni ed è 
necessario un solo bit di memoria per rappresentare un’istruzione di questo tipo in 
un programma di codice macchina. 

2) Indirizzamento implicito: l’indirizzamento in accumulatore è un caso particolare 
di questo modo di indirizzamento. Ci sono altri codici operativi che specificano im¬ 
plicitamente il luogo in cui trovare il valore da elaborare. Un esempio di questi può 
essere ‘trasferisci l’accumulatore al registro Y’ (TAY). L’effetto di questa operazio¬ 
ne è esattamente quello enunciato e non c’è altra necessità di dire come ottenere il 
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valore da trasferire o dove dovrà essere posto. Anche questa è un’istruzione mac¬ 
china da un byte. 

3) Indirizzamento immediato: i codici operativi che impiegano questo tipo di indi¬ 
rizzamento richiedono che il valore su cui operare venga specificato insieme al co¬ 
dice operativo stesso, per mezzo di valori compresi fra 0 e 255, o del possibile con¬ 
tenuto di un singolo byte di memoria. Un esempio di codice operativo di questo ti¬ 
po è ‘load accumulator immediate’ (LDA). Un’istruzione contenente questo codice 
operativo potrebbe essere LDA 127. L’effetto di questa istruzione sarebbe quello di 
caricare nell’accumulatore il valore 127. Tradotto in codice macchina questo tipo 
di istruzioni richiede un byte di memoria per specificare il codice operativo ed un 
altro byte per specificare il valore su cui operare. 

4) Indirizzamento relativo: viene impiegato quando in un programma è necessario 
utilizzare dei salti ed è richiesto un valore per specificare la locazione di memoria 
cui il programma dovrà saltare durante l’esecuzione. Come per il tipo precedente di 
indirizzamento, il valore dovrà essere nell’intervallo 0-255 ma questo intervallo è 
suddiviso in una metà positiva ed una negativa, con i valori 0-127 che provocano 
un salto positivo ed i valori 128-255 uno negativo (viene sottratto 127 dal valore in 
oggetto). Il salto è misurato relativamente all’indirizzo del byte seguente l’istruzione 
di salto. Un esempio di questo genere di codice operativo può essere ‘brandi non¬ 
zero’ (BNE). Un’istruzione contenente questo codice operativo potrebbe prendere 
la forma BNE 127, l’effetto dell’istruzione sarebbe quello di saltare in avanti di 127 
byte prima di riprendere l’esecuzione del programma nel caso che l’operazione pre¬ 
cedente del programma avesse dato un risultato diverso da zero. L’indirizzamento 
relativo, come i tipi precedenti, impiega un byte per il codice operativo ed un byte 
per l’operando. 

Prima di discutere i restanti modi di indirizzamento è necessario comprenderne 
due tipi che non sono implementati singolarmente ma formano uno la base dell’al¬ 
tro: 

a) Indirizzamento indicizzato: questo metodo impiega uno dei due registri del chip 
6502/6510 noti come ‘registri indice’. 

Questo tipo di codice operativo usa un operando che specifica un indirizzo di 
memoria ma, prima che questo indirizzo venga utilizzato, esso o il suo contenuto 
vengono modificati aggiungendovi il contenuto presente di uno dei registri indice. 
Allora un’istruzione che usa l’indirizzamento indicizzato richiede che: 

I) ci sia un valore nel registro indice 
II) l’operando specifichi un indirizzo di memoria. 

b) Indirizzamento in pagina zero: si riferisce al fatto che sebbene il chip 6502/6510 
abbia solo cinque registri (locazioni nel chip in cui si possano facilmente porre ed e- 
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laborare valori) accessibili al programmatore in linguaggio macchina, questa limi¬ 
tazione al confronto di altri popolari chip di CPU è superata dalla possibilità di 
considerare l’intera area di memoria dali’ìndirizzo 0 all’indirizzo 255 come una se¬ 
rie di 128 registri a due byte che possono venir utilizzati dalla CPU per operazioni 
varie. L’indirizzamento in pagina zero è il modo di indirizzamento che rende acces¬ 
sibile quest’area di memoria. 

Tornando ora ai principali modi di indirizzamento forniti dal chip 6502/6510 
troviamo: 

5) Indirizzamento indicizzato in pagina zero: in questa forma di indirizzamento so¬ 
no combinati i due metodi presentati sopra. In un’istruzione di questo tipo il valore 
contenuto nel registro indice potrebbe essere sette, nei qual caso l’operando a due 
byte si riferirebbe ad un indirizzo in pagina zero delia memoria (0-255), a cui an¬ 
drebbe sommato il contenuto dello specificato indice. 

6) Indirizzamento indiretto: qui l’operazione specificata dal codice operativo verrà 
eseguita su di un indirizzo non direttamente espresso nell’istruzione assembler, ma 
contenuto nei due bytes al cui indirizzo punta l’operando a due byte. Un esempio di 
istruzione di questo genere può essere ‘jump’ (JMP). Questo codice operativo sa¬ 
rebbe seguito da un operando a due byte. L’operando non è l’indirizzo di memoria 
cui il programma in esecuzione dovrebbe saltare, piuttosto i due byte che iniziano 
all’indirizzo specificato contengono un indirizzo. È questo secondo indirizzo quello 
cui il programma dovrà saltare. Quindi JMP (SAAAA) non indica un salto all’indi 
rizzo AAAA, ma all'indirizzo rappresentato dal valore memorizzato nei due byte 
di memoria SAAAA ed SAAAB. 


Adire due forme di indirizzamento indiretto disponibili sul chip 6502/6510 usano 
il concetto di indirizzamento indicizzato descritto sopra: 

7) Indirizzamento pre-indicizzato: come per un normale indirizzamento indiretto, 
gli operandi di questo tipo contengono indirizzi ai quali si troveranno i valori da e- 
laborare. Però prima di ottenere l’indirizzo iniziale vengono aggiunti operandi 
pre indicizzati ai contenuto del registro X della CPU. Cosi se il registro X contiene 
$100 e l’operando è $100, l’indirizzo in cui si cercherà il valore desiderato è $200. 

8) Indirizzamento post-indicizzato: qui l’operando specifica una locazione di me 
moria dalla quale viene prelevato il contenuto che si somma a quello del registro Y 
della CPU. Il risultalo è un indirizzo sul cui contenuto si eseguirà l’elaborazione. 

9) Indirizzamento assoluto: in questo caso l’operando a due byte specifica un indi¬ 
rizzo di memoria dove si troverà il valore su cui operare. Ad esempio l’istruzione 
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‘load accumulator’ usata con questo tipo di indirizzamento potrà avere ia forma 
LDA SAAAA, che avrebbe l’effetto di caricare nelPaccumulatore il valore conte¬ 
nuto nel byte SAAAA della memoria. 

10 e 11) Indirizzamento assoluto X cd assoluto Y: in questi due tipi l’indirizzo spe¬ 
cificato nell’operando a due byte viene sommato al contenuto del registro X o Y 
per ottenere l’indirizzo finale del valore da elaborare. Se ad esempio il contenuto del 
registro X è $5 e l’operando è SAAAA, l’indirizzo del valore da elaborare per e- 
sempio con un’operazione del tipo LDA SAÀAA.X sarebbe contenuto nel byte 
SAAAF della memoria da cui verrebbe passato nell’accumulatore. 

Date queste brevi spiegazioni sui diversi tipi di operandi che il chip 6502/6510 è 
in grado di riconoscere, dovreste trovare abbastanza facili da seguire senza troppi 
commenti le sezioni del programma che si occupano di creare le istruzioni in lin¬ 
guaggio assemblatore a partire dalle equivalenti in linguaggio macchina. Nei modu 

11 seguenti, quando un codice operativo è prelevato dalla memoria, il programma ri¬ 
caverà il corretto modo di indirizzamento per quel codice operativo accedendo alle 
tabelle memorizzate nella sezione precedente, ottenendo un valore che registrerà 
nella variabile OP (operando). Il valore di OP tradotto in un metodo di indirizza¬ 
mento è riportato nella tavola qui sotto, cui troverete utile far ricorso seguendo i 
moduli del programma disassembler. 


VALORE DI ‘OP’ 


MODI DI INDIRIZZAMENTO 


0 


2 

3 

4 

5 

6 

7 

8 

9 

10 


11 


12 


Accumulatore 

Implicito 

Immediato 

Relativo 

Indicizzato pag. 0, X 
Indicizzato pag. 0, Y 
Pag. zero 

Pre-indicizzato indiretto (X) 
Post-indicizzato indiretto(Y) 
Assoluto indiretto 
Assoluto indicizzato, X 
Assoluto indicizzato, Y 
Assoluto 


27 








TAVOLA DI CONTROLLO 


19000 

123 

19001 

139 

19002 

123 

19005 

.116 

19007 

132 

1 901 0 


19011 

136 

19812 

89 

19013 

78 

19014 

90 

19015 

9.1 

19016 

116 

19017 

93 

19018 

241 

19019 

164 

19020 

130 

19021 

154 

19022 

226 

19023 

193 

19824 

61 

19025 

87 

19026 

213 

19027 

189 

19028 

58 

19829 

213 

19030 

162 

19031 

141 

19032 

118 

19033 

108 

19834 

111 

19035 

147 

19036 

125 

19837 

11 

19038 

75 

19040 

84 

19041 

175 

19042 

10 

19043 

82 

19044 

238 

19846 

142 






MODULO 2.3 


15450 

15451 REM flCCUMULRTOR <OP=0) 

15452 

15460 01$ =: 01 $+" fl" 

15500 REM IMF'LI ED <0P=1? 
15510 RETURN 


Questo breve modulo si occupa dei due modi di indirizzamento più semplici: 

a) indirizzamento in accumulatore: tutto ciò che si richiede per disassemblare que¬ 
sto tipo è raggiunta di ‘A’ al codice operativo standard. 

b) indirizzamento implicito: qui il codice operativo stesso sottintende il suo operan 
do, quindo non c’è bisogno di alcuna azione. 


TAVOLA DI CONTROLLO 


123 
142 


15450 123 15451 108 15452 

15466 105 15500 49 15518 
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MODULO 2.4 


15550 rem#*#*###*****#*#********#****** 

15551 REM IMMEDIATE <QP=2) 

15552 REM##**#******##**#************## 
15560 GOSUB 11100 

15570 01$ = Ql$+"#$"+M$ 

15580 RETURN 


Questo modulo si occupa dell’indirizzamento immediato. Il byte seguente il codi¬ 
ce operativo viene interpretato come un operando nell’intervallo 0-255. 


TAVOLA DI CONTROLLO 


15550 123 15551 189 15552 123 

15560 160 15570 133 15580 142 


MODULO 2.5 


15600 REM###**#######################*# 

15601 REM RELATIVE <0P=3> 

15602 REM****************************** 
15610 GOSUB 11100 

15620 IF H>127 THEN H = H-256 
15630 H = H+fiD 
15640 GOSUB 11000 
15650 01$ = 01$+"$"+H$ 

15660 RETURN 


Questo modulo si occupa dcll’indirizzamento relativo e trasforma il byte che se¬ 
gue il codice operativo in un numero nell’intervallo —128/+127. 


TAVOLA DI CONTROLLO 


15600 

123 

15601 139 

15602 

123 

15610 

160 

15620 239 

15630 

177 

15640 

159 

15650 98 

15660 

142 


i 
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MODULO 2.6 


15300 F?EM***^#*******#******ifi+i******iti*^ 

15301 REM HDD OPERRHD IH OP TO 01$ 

15302 REM***#-#^.#*#***#***#**^***^#****# 
15310 OH OP+1 GOTO 15450,15500.. 15550.. 156 
00 

15330 J.F 0P>6 RWD OP<10 THEN 01$ = 01$+" 


15340 

GOSUB 

11100 



15350 

01$ - 

01$+"$" 

: T$ = H$ 


15360 

IF OP- 

C9 THEN 

15390 


15370 

GOSUB 

1 1 1 00 



15330 

01$ * 

01$+H$ 



15390 

0.1$ ~ 

01$+T$ 



15400 

IF" QP= 

=9 OR OP 

-8 THEN 01$ 

= 01$+">" 

15410 

. M 

IF OP- 

"I NT (OP.- 

3>*3=1 THEN 

01$ -- 01$ 

r .. f \ 

15420 
+ ",V" 

IF OP- 

-INT ( OP/ 

'3 >*3=2 THEN 

01$ = 01$ 

15430 

IF OP' 

=7 THEN 

01$ = 01*+"' 

'! " 


15440 RETURN 


Questa semplice sezione di frasi IF regola il formato delle istruzioni in linguag¬ 
gio assembler a seconda dei diversi modi di indirizzamento. Il modo migliore di ca¬ 
pire questa sezione è quello di confrontare ciò che essa fa all’operando sulla base 
dei valori di OP presentati nella tabella più sopra. 


TAVOLA DI CONTROLLO 


15300 123 

15301 

15310 110 

15330 

15350 156 

15360 

15380 80 

15390 

15410 207 

15420 

15440 142 



158 15302 123 
10 15340 160 
31 15370 160 
92 15400 230 
209 15480 ]07 


SEZIONE 3: disasscmblaggio della memoria 

Abbiamo introdotto le sezioni del programma che permettono di tradurre da lin¬ 
guaggio macchina in linguaggio assemblatore. Resta ora da aggiungere l’insieme 
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dei moduli che permettono al programma di prelevare il contenuto di una specifica 
area di memoria del 64 in modo che le istruzioni in esse contenute in linguaggio 
macchina possano essere disassemblate e visualizzate sullo schermo. 


MODULO 2.7 

1 *5700 R E M W- *4444: 4 4 4 44444 4 * 4 4 4 4 4 * * * 4 4: 4 4 * 4 

15701 REM DISftSSEMBLE INSTRUCT10N 

15702 R E M 4 4 * 4 4 * 4 4 * * * $ 4 4 4 * 4 4 4 4 4 444 .4: * 4.4:4:4: 
15710 02$ * "" 

15715 GGSIIB 11100 H = H+l 
15720 IF H>255 THEN H = 3 
15730 T - ftSC < M1 D$ <TR$(0) .• H, 1 > > 

15750 01$ = MIE* (TR$(2)T43+1 > 3) + " " 
15760 OP = fìSC <M1.D$ <TfWCl>/INT<CH+lV2 
). 1 > > 

15770 IF <H HMD 1 ~1 THEN OP » OP/16 

15788 OP -- OR AHI) 15 
15790 RETURN 


TAVOLA DI CONTROLLO 


15700 

123 

15701 93 

157 

157 . 1:0 

219 

15715 119 

157 

15730 

131 

15750 148 

157 

15770 

146 

15780 133 

157 


Questo modulo costruisce l’istruzione in linguaggio assemblatore sulla base delle 
informazioni ricavate dalla memoria. 

Commento 

15715-15720: ottenuto il byte del codice operativo, il suo valore viene posto nella 
variabile 'H\ 

15730: il codice operativo viene usato per ottenere un puntatore da TA$(0) che in¬ 
dicherà la posizione in TA$(2) del formato a tre lettere in linguaggio assemblatore 
di quel codice. 
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15750: viene aggiunto uno spazio dopo il codice operativo per uniformarlo al for¬ 
mato standard del linguaggio assembler. 

15760-15780: viene ricavato dalla tabella TA$(I) il modo di indirizzamento asso 
ciato al codice operativo. 


MODULO 2.8 


15800 REri#*##***^*#.^*.f.».$**f***mf*#* 

15801 REM DISflSSEMBLE MEMORY AREA 

15802 REM**»:*-****#***-*»:**if:^**H«***'-**if:*** 
15810 GOSUB 12050 

15820 PRIMI "CCLHI" : POR I “ 1 TO 20 
15825 H = RD : GOSUB 11000 : PRIMI H* TR 
B ( 6 > ; 

15830 GOSUB 15700 : GOSUB 15380 
15850 PRIMI 02* TRE(14 > 01* 

15860 NE.YT I 
15865 PRIHT 
15870 GOSUB 11850 
15880 IF CO THEM 15820 
15890 RETURN 


TAVOLA DI CONTROLLO 


15800 123 15801 
15810 165 15820 
15830 202 15850 
15865 153 15870 
15890 142 


13 15882 123 
93 15825 244 
115 15860 235 
172 15880 36 


Questo è il modulo che controlla il formato delle istruzioni in linguaggio assem¬ 
blatore ottenute dai moduli precedenti. Per una spiegazione delle varie chiamate 
delle subroutine, si veda in Appendice la Tabella delle funzioni delle subroutine. 


Sommario 

Anche se state lavorando su questo libro con un buon testo base sul 6502/6510 
vale la pena, a questo punto, di passare un po’ di tempo giocando col vostro assem¬ 
bler e monitor. Provate a disassemblare alcune delle routine della ROM del 64 e 
cercate di capire come funzionano. Alcuni indirizzi interessanti per iniziare a disas¬ 
semblare sono elencati sotto, con le funzioni delle routine che vi si trovano. 
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Fate attenzione comunque che un disassembler è utile solo se viene fornita una 
posizione di partenza corretta in memoria. Se iniziate a disassemblare la memoria 
in un punto a metà di un’istruzione macchina, i primi byte almeno del listing disas¬ 
semblato saranno privi di senso, dal momento che parti di operandi saranno state 
tradotte come codici operativi. Alla fine, dopo aver saltato un numero di istruzioni 
apparentemente errate o addirittura insensate, il disassembler incontrerà istruzioni 
corrette. Da qui in avanti verrà disturbato solo dalla presenza in memoria di tabel¬ 
le, che tenterà nuovamente di tradurre come se si trattasse di istruzioni in linguag¬ 
gio macchina. Quando vi imbattete in tali problemi l’unica soluzione è quella di 
spostare l’indirizzo iniziale finché non sia terminata la tabella e vengano trovate i 
struzioni sensate all’inizio del listing disassemblato. 

Qui sotto c’è un esempio di disassemblaggio di un’area dell’interprete del 64 ini 
ziante all’indirizzo di una routine la cui funzione è quella di accettare in ingresso 
una nuova linea BASIC usando varie subroutine del monitor e del ‘kernaP del 64. 


R480 

6CO203 

JMP <$0302) 

R483 

206005 

JSR $0568 

fi 4 86 

8670 

STX $70 

0488 

847B 

STV $7B 

0480 

2.07300 

JSR $0073 

048D 

00 

TflX 

048E 

F0F0 

BEO $0480 

0430 

02FF 

LDX tt$FF 

0432 

8630 

STX $30 

0434 

9006 

BCC $049C 

0436 

207905 

JSR $0579 

0433 

40007 

JMP $07E1 

049C 

206BO9 

JSR $R96B 

049F 

207905 

JSR $0579 

0402 

848B 

STV $0B 

0404 

201306 

JSR $0613 

0407 

9044 

BCC $04ED 

0409 

0001 

l:ov #$01 

R4RB 

B15F 

LIDO < $5F >, V 

04 OD 

8523 

STO $23 


CONTINUE < V/N > 
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CAPITOLO 3 


FILE EDITOR MASTERCODE 


Prima di procedere con la parte principale del programma assemblatore esami¬ 
neremo il file editor, che permette di immettere in forma opportuna i programmi in 
linguaggio macchina e di editarli convenientemente. 

Discutendo del disassembler abbiamo già notato il formato di alcune singole i 
struzioni che verranno usate nei programmi in linguaggio assemblatore. Se avete u- 
sato il disasscmbler per tradurre parte della ROM del 64, avrete anche visto in qua¬ 
le forma i programmi in linguaggio assemblatore vengono usualmente presentali, 
che consiste di tre tipi d’informazione per ciascuna istruzione: 

1) l’indirizzo di memoria dove l’istruzione si trova 

2) il contenuto, in esadecimale, dei byte che la compongono 

3) la forma in linguaggio assemblatore dell’istruzione 


Quando si introduce un programma in linguaggio assemblatore per mezzo di un 
assembler, sono necessarie le sole istruzioni in linguaggio assemblatore. Ci sono 
però alcuni problemi connessi alla semplice introduzione di una lunga lista di istru¬ 
zioni in linguaggio assemblatore. Ad esempio cosa succede se dopo aver immesso 
un lungo programma in linguaggio assemblatore ci accorgiamo che dobbiamo inse¬ 
rire alcune istruzioni nel mezzo di esso oppure che dobbiamo cancellarne alcune? 
Dobbiamo ripetere tutto il programma correttamente? Ovviamente l’ideale sarebbe 
qualcosa del tipo offerto dall’interprete BASIC del 64 - linee numerate che vengono 
automaticamente cancellate o inserite al posto giusto, con la possibilità di modifi¬ 
care linee dovunque nel programma. È compito del file editor offrire queste possibi¬ 
lità, benché la sezione di programma presentata qui vada oltre, permettendo anche 
di renumerare il programma e di salvare (o caricare) il file in linguaggio assembla 
tore prima che l’assemblatore proceda effettivamente ad elaborarlo e tradurlo in 
codice macchina. 
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Va sottolineato il fatto che il file editor non è una parte dell’assemblatore prò 
priamente detto poiché non si occupa del tipo di materiale che viene immesso, ma 
permette semplicemente di inserire in un file delle linee numerate. Nulla viene con 
frollato o elaborato finché l’assemblatore vero e proprio non viene attivato. 


SEZIONE 1: inizializzazioni 


MODULO 3.1 


24800 REM###*#*#**###*##############*## 

24801 REM FILE EDITOR MENU 

24802 REM****************************** 

24820 FRINT " CCLH] CORNI - FIL 

E EDITOR - 

24835 FRINT " 

TOR" 

24840 FRINT " 

24850 FRI NT " 

24860 FRINT " 

24870 FRINT " 

24880 FRINT " 

24890 FRINT " 

24900 FRI NT " 

24910 FRI NT ” 

0 FILE" 

24915 FRINT " 

ER C CD LI ] [ CD LI 3 [ CULI 3 C CD LI 3 C CULI 3 " 

24920 INPUT " COMMUNI! < 8-9 > : " : CO 
24940 IF C0=8 THEN RETURN 
24950 IF CO>0 THEN ON CO GOSUB 24600,244 
00,24508,24700,24300,23600,23780,25800 
24960 IF C0>3 THEN OH CO-8 GOSUB 25508 
24970 GOTO 24800 


0> EXIT FROM FILE EDI 

1) INPUT LIHE(S)" 

2) LIST LINE<S>" 

3) DELETE LINECS)" 

4) RENUMBER FILE" 

5> INITIRLISE FILE" 

6) LORD FILE" 

7) SRVE FILE" 

8> RDD MACHINE CODE T 

9> CHRNGE DEVICE NUMB 


Un modulo completamente dedicato al menu. 
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TAVOLA di 


CONTROLLO 


24800 

123 

24801 11 

24802 

123 

24820 

125 

24835 235 

24840 

179 

24850 

96 

24860 216 

24870 

218 

24880 

102 

24890 156 

24900 

172 

24910 

90 

24915 243 

24920 

182 

24940 

24970 

148 

167 

24950 30 

24960 

252 


MODULO 3.2 


24300 

24301 REM INI TIFILI SE FILE 

24302 REM**********************»^***** 
24310 PTR$ - ,,, ‘ : E$ = " " : FOR X * 0 IO 

254 : E$ “ E$+CHR$ <X> : HEXT : RETURN 


Questo modulo predispone le variabili necessarie per trattare un nuovo file — ri¬ 
chiamando questa opzione con un file già in memoria si provocherà la perdita di 
questo file. Le due principali variabili sono PTR$, che indicherà la posizione corret¬ 
ta degli elementi del file, ed E$, che terrà conto della posizione degli spazi per nuovi 
inserimenti. L’uso di PTR$ verrà descritto nel modulo 6. 

TAVOLA DI CONTROLLO 

24300 123 24301 218 24302 123 

24310 217 


MODULO 3.2A 

19980 DIM FI$<254> : GOSUB 24300 


Questo modulo fa parte in effetti della routine di inizializzazione principale per le 
tabelle del disassembler. La sua funzione è quella di predisporre la matrice del file 
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principale (F1S) quando il programma viene eseguito per la prima volta. Una volta 
che il programma è partito, la matrice viene rcinizializzata richiamando il modulo 
precedente. 


TAVOLA DI CONTROLLO 

19980 101 


SEZIONE 2: Immissione di linee 


MODULO 3.3 


24600 REmmMmMmMmMmMMMMtM 

24601 REM INPUT LI NE (Si) 

24602 REM#*********##***.^**^»..+:**^**:.+: 
24610 FRI NT " fXLHJ " 

24620 IH$ = "" : INPUT IM$ : GOSUB 24000 
' IF LN=-65536 THEH 24665 
24650 GOSUB 23900 : IF LEU <■. IN-f ') =0 THEH 2 
4680 

24660 GOSUB 23100 : IF HOT ERR THEH 2462 
0 

24665 RETURN 

24680 GOSUB 23020 : IF HOT ERR THEH GOSU 
B 23300 

24690 GOTO 24620 


Questo è il modulo che, alTimmissione di una linea, attribuisce i compiti necessa¬ 
ri alle varie routine del file editor. Oltre a distribuire i compiti ad altri moduli, la sua 
unica funzione è quella di permettere Tiinmissione della linea nella forma di IN$ e 
di determinare se viene inserito un numero di linea senza alcuna linea, cioè se si 
vuole eseguire una cancellazione. 

TAVOLA DI CONTROLLO 

24680 123 24601 43 

24610 144 24620 251 

24660 94 24665 .142 

24690 16m 7 


24602 123 
24650 108 
24680 6 
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MODULO 3.4 


2 4 0 0 fi R E M 4 44444 * * 4 4444444 4 4 4 * 4 4 4 4:4 4 4 4 4 4 
94081 REM GEI LIME NUMBER 
2 4 002 REM444444444444444444444444444444 
24810 LM - -63536 

24020 IF LEN<IN$?=0 OR IMTC'O" OR LEFT* 
<IN«/1»"S I " THEM 24096 
24030 FOR T = 1 TO LEM CINT> 

24040 IF MI D$ <1NT,T, 1K="9" HMD MI Di'- <1 

Hi.T,l)>-" 0 " them next t 

24080 LN = VRLCLEFTi <INT,7-1)> IH$ “ 

MI Di 

24090 RETURN 


Ottenuto un input nella forma IN$, si ricava un numero di linea dall’inizio della 
stringa. La stringa viene esaminata carattere per carattere per trovare il primo di 
essi al di fuori dell’intervallo 0-9, quindi si calcola il VAL della stringa fino a quel 
punto. Le stringhe che non iniziano con un numero di linea provocano un’attribu¬ 
zione del valore -65536 al numero stesso (LN), segnalando così l’errore, in caso 
contrario il numero di linea viene memorizzato in LN ed i caratteri che lo rappre¬ 
sentano vengono sottratti alla stringa originaria. 

TAVOLA DI CONTROLLO 

24000 123 24001 192 

24010 64 24028 93 

24840 150 24080 73 


MODULO 3.5 

23300 REM44444444 4444444444444444444444 


23901 

REM REMOVE 

LEHDING S 

PflCES 

23902 

REM4444444S 

<444444444 

4444 444444444 

23910 

FOR T ~ 1 

IO LEM(INF 

» 

23920 

IF MI UT (. INT. T j. 1 > = " 

" THEM NENT T 

23950 

I N$ = MIli* 

(IN$.T) : 

RETURN 


24002 123 
24830 203 
24090 142 
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La stringa IN$, privata del suo numero di linea, può iniziare con uno o più 
spazi — questo modulo li rimuove. 


TAVOLA DI CONTROLLO 


23900 123 23901 112 23902 123 

23910 203 23920 81 23950 11 


MODULO 3.6 


23000 

23001 REM FILE EDITOR 

23002 REM*******************:m******** 
23010 REM FILE EDITOR 

23020 REM FINII LINE HUMBER IH 'LN' IN FI 
LE 

23030 T = LEN<PTR$)+1 : T2 « -1 
23040 T = T-l : IF T<!=0 THEN GOTO 23080 
23050 Tl - flSC 1,'MIDf '■ F'TR$, T.. 1 > > 

23060 12 = flSC <MID$ (FI $ <T1>,1,1>)+256* 
FlSC < MI D$ (. FI $ ■: T1 >.. 2.. 1 ) > 

23070 IF T2>LH THEN 23040 
23080 ERR = HOT(T2=LN> : IF ERR THEN T = 
T+l 

23090 RETURN 


Prima di procedere col modulo che inserisce efTettivamente una linea nel file, 
dobbiamo occuparci di questo, la cui funzione è determinare la posizione corretta 
per la nuova linea (ammesso che essa abbia un numero di linea valido). Esaminan¬ 
do il modulo comprenderemo meglio l’uso di PTR$. 


Commento 

23030: nella ricerca della posizione corretta, in cui inserire una linea faremo uso 
della stringa che abbiamo chiamato PTRS abbreviazione di ‘pointer string’ (stringa 
puntatore). Una stringa puntatore è un metodo standard di superare i problemi di 
inserimento di nuove linee in matrici a più righe. Non che la cosa sia difficile, ma 
semplicemente l’inserimento di una nuova linea all’inizio di quella che potenzial¬ 
mente potrebbe essere una matrice anche di 250 righe provoca lo scorrimento di 
tutte le righe presenti, un compito che può consumare tempo e creare anche proble¬ 
mi di riorganizzazione rallentando ulteriormente le cose. Usando una stringa pun- 
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tatare si può superare tutto questo, dal momento che il contenuto della matrice non 
viene mai fatto scorrere. Tutte le manipolazioni vengono eseguite su un’unica strin¬ 
ga. Invece di cercare la posizione corretta nella matrice e poi di far scorrere tutto 
per fare spazio alla nuova linea, ciò che faremo è trovare quaie dovrebbe essere la 
posizione corretta (in base al numero di linea), piazzare la linea da inserire nel pri 
nio spazio libero che si trovi e quindi indicarne la posizione effettiva al punto giusto 
della stringa puntatore. 

In questo modo la stringa puntatore potrebbe contenere una serie di byte con i 
valori 34,76,233,176... Ciò che questo significherebbe è che la vera prima linea del¬ 
la lista si trova nella posizione 34, la seconda nella posizione 76, la terza nella posi¬ 
zione 233 e cosi via. Per accedere in ordine alla matrice di linee dobbiamo prima e- 
saminare PTR$, ricavarne la posizione della prima linea, quindi esaminare il secon 
do carattere di PTR$ per trovare la posizione della seconda. Dal momento che ab¬ 
biamo accettato un limite arbitrario di 255 linee per ogni file, tutti i puntatori posso¬ 
no venir rappresentati sotto forma di un singolo carattere in PTRS — i caratteri 
hanno un valore ASCII compreso fraO e 255. Per eseguire un inserimento, sarà ne¬ 
cessario soltanto suddividere PTRS in due parti e piazzarvi nel mezzo un nuovo in¬ 
dicatore con un risparmio di tempo considerevole. In questa linea in particolare la 
variabile principale di ricerca (T) è inizializzata al valore LEN(PTRS) +1, in modo 
che la ricerca inizi al termine di PTRS. 

23050: il valore del carattere T in PTRS è la posizione di quella che dovrebbe esse¬ 
re la linea T nella matrice (non la linea col numero di linea T, ma quella nella posi¬ 
zione T se contassimo dall’inizio del file). 

23060: ottiene il numero di linea della linea memorizzata in FI$ alla posizione TI. 

23070: continua la ricerca finché viene trovato un numero di linea maggiore di 
quello della linea da inserire (LN). 

23080: viene posta uguale a —1 la variabile ERR se il numero di linea da inserire 
non è uguale a quello di una linea già presente nel file. Questo permette al modulo 
successivo di sapere se una linea viene inserita o riscritta. 


TAVOLA DI CONTROLLO 


2301© 182 
23040 17 
23070 92 


23020 183 
23050 168 
23080 16 


23030 29 
23060 86 
23090 14 


14 
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MODULO 3.7 


23100 REn********************^***^*^^:** 

23101 REM RD.D LINE TO FILE 

23102 REM****-****:****#'* 

23105 IF LH<0 OR LN>65535 THEN 23215 
231.10 OOSUB 23020 

231.20 IF HOT ERR THEN TI - FISO (MITU <PT 
R$ i T .< 1 > ) : BOTO 23150 

231.30 IF ET--"" THEN ERR = TRIJE : GOTO 23 
220 

23140 TI •--- HSC (E$> ' E$ -- MIB$ <t'*.2> 

23150 T2 INTCL.N/256) 

23160 F1$(T1) = CHRT <LN-T2#256>+CHR* <T 

2)+INf 

23170 IF HOT ERR THEH 23220 
23180 T$ “ "" : Tl$ = "" 

23190 IF T>1 THEN 7$ ~ LEFTf- (PTRT.T-l> 
23200 IF TC“LEH(PTR$> THEH Tl$ " MID$ CP 
TR T'.. T> 

23210 F'TRT ~ T$+CHR$ (TJ >+Tl$ 

23215 ERR = FRESE 
23220 RETURN 


Questo é il modulo che esegue l’effettivo inserimento della linea nel file. 


Commento 

23 105: usando due byte, 0-65535 é il massimo intervallo possibile per numeri di li 
nea. 

23120: se il modulo precedente restituisce un errore, significa che si sta immettendo 
una linea con un nuovo numero. Se non c’é errore la linea da immettere è semplice 
mente una riscrittura di una linea esistente e PTR$ non ha bisogno di essere modi¬ 
ficato. 

23130: per accelerare ancora il processo di inserimento, viene utilizzata una secon¬ 
da stringa (F.S) per registrare tutti gli spazi esistenti nel file. Invece di ricercare il 
primo spazio libero, la linea verrà inserita nella posizione indicata dal primo carat¬ 
tere in ES-carattere che verrà eliminato finché non tornerà libera la posizione corri¬ 
spondente. 
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23150-23160: vengono creati i byte dei numeri di linea a partire da LN e la nuo¬ 
va linea viene inserita. Notate che avendo messo il byte ‘alto’ nella variabile 
J2 (=LN/256), non c’è bisogno di porre un’altra variabile uguale a 
LN-256*INT(LN/256). Mettendo semplicemente LN in forma ASCII si perderà 
tutto ciò che è supcriore a 255, come se si fosse eseguito un AND fra LN c 255. 


23170 - 23210 : se stiamo trattando un nuovo numero di linea, allora si deve aggiun¬ 
gere un carattere a PTR$. La posizione del carattere è indicata da T ed è sufficien¬ 
te prendere LEFT$ (PTRS, T—1) e MID$(PTR$,T) per inserire fra queste il carat¬ 
tere opportuno. 


TAVOLA DI CONTROLLO 


100 

123 

23101 195 


102 123 

105 

73 

23110 164 

p *7 

120 1 

130 

40 

23140 206 

ì.:, -Z 

150 38 

160 

84 

23170 60 

22 

180 7 

190 

133 

23200 281 

22 

210 30 

215 

70 

23228 142 




MODULO 3.8 


23300 REH*»*********ff****»if!t!***if*i+:**** 
23301. REM DELETE LINE POINTED li'f BY T 

23302 

23310 T$ = "" : T1 $ ~ "" 

23320 IF T> 1 THEN T* = LEFTT <PTR$, T-l ) 
23330 IF TCLEH<PTR$} THEN Tl$ = NIDT (PI 

r$,th:> 

23340 ET == Ef+MIDT <PTR$,T, 1) 

23.350 PTR$ = TT+T1T 
23360 RETURN 


Potrebbe sembrare strano descrivere questo modulo nel paragrafo dedicato al 
l’inserimento delle linee, dal momento che il suo scopo è quello di eliminarle. La ra¬ 
gione per cui ne parliamo qui è che, inserendo nuove lince, ne viene immessa una 
composta dal solo numero di linea, la riga corrispondente viene cancellata, analo¬ 
gamente a quanto succede in BASIC. Il modulo è perciò chiamato dal modulo di 
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controllo principale per l’inserimento. La procedura seguita è l’immagine speculare 
di quella usata nell’inserimento, con la rimozione di un carattere puntatore da 
PTRS e la registrazione della posizione della linea come spazio libero in E$. Notate 
che non c’è bisogno di eliminare fisicamente il contenuto della linea che permane, 
ma esso non verrà più riconosciuto dal file editor e verrà riscritto non appena si in¬ 
serirà una nuova linea. 


TAVOLA DI CONTROLLO 

123 
242 
142 

SEZIONE 3: listing e cancellazione 

MODULO 3.9 


3300 123 
331.0 7 
3340 123 


23301 193 
23320 193 
23350 215 


23302 

23330 

23360 


24200 rem 

24201 REM FIRST RMD LflST LINES 

24202 

24205 IN* = "" : INPUT "FIRST - LflST LIN 
ES : IN* 

24210 SL = 0 : FL = 65535 : T3 = 0 '• ERR 
= FALSE 

24220 IF LEN<IH$)=0 THEN 24295 
24230 QOSUB 24000 

24240 IF LH>=0 THEN SL = LN : GOTO 24260 
24250 IF LN>-65536 THEN FL = -LN : GOTO 
24295 

24266 GOSUB 23900 : IF LEN<IN$>=0 THEN F 
L = SL : GOTO 24295 

24270 IN* = MIB* (. IN*.. 2) : GOSUB 23300 
24290 IF LEN<IM*)>0 THEN GOSUB 24000 : F 
L = LN 

24295 ERR = SL<0 OR SL>65535 OR FL<0 OR 
FL>65535 OR ERR : RETURN 


Questo modulo è usato nel listing e nella cancellazione di blocchi per ottenere in 
ingresso coppie di numeri di linea nella forma ‘100-300’. 


44 

















Commento 

24210-24220: linea iniziale (SL) e linea finale (FL) vengono inizializzate con i valo¬ 
ri estremi permessi. Se l’utente preme semplicemente RETURN all’apparire del 
‘proinpt’, l’intero file verrà listato dall’inizio alla fine. 

24230-24250: il primo numero di linea viene ricavato dalla subroutine in linea 
24000. Se é maggiore di zero SL viene posto uguale ad esso. Se l’ingresso fosse del 
t jp 0 ‘—300’ questo verrebbe restituito come meno 300. In questo caso SL resta a 
zero, ma FL verrà posto uguale a 300 ed il file verrà listato fino alla linea 300. 

24260: tutti gli spazi iniziali vengono eliminati da ciò che resta in IN$ dopo la ri¬ 
mozione del primo numero. Se non è rimasto nulla allora FL è posto uguale ad SL 
e viene listata una sola linea. 

24270-24290: INS viene privata del ’ precedente il secondo numero, tutti gli spa¬ 
zi precedenti vengono rimossi ed il secondo valore viene ottenuto. 


TAVOLA DI CONTROLLO 


24200 123 
24203 168 
24230 163 
24260 180 


i*4201 57 
•14210 170 
Ì4240 11 
.4270 6 


4202 123 
4220 73 
4230 131 
4290 125 


MODULO 3.10 


23400 RE 0 * * * # * * * * * * * $ ******** * * ***** * * * 

23401 REM LIST LINES POINTED RI BV T 

23402 REM****************************** 
23410 FRI NT ASC (HI Li* <FI*(T>, 1, 1 > >+256# 
FISC <MID* (FI$<T) .-2,1)) TRE<6) .: 

23420 FRINT MID$ <FI$<T),3) 

23430 RETURN 


Questo modulo stampa una linea la cui posizione è indicata dalla variabile T. Il 
numero di linea è ricavato dai primi due caratteri della linea stessa, quindi viene vi¬ 
sualizzato il resto della linea. 
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TAVOLA Df CONTROLLO 


40O 1 
410 1 




MODULO 3.11 


23500 

23501 REM START AND FINISH PO.THTERS 


13502 R E M# $ # * * * * *' * * $ *.+: * * 4: # # * * * * $* $ $ 

3510 LN -= SL : GOSUE 23020 

3528 SP = T 

3530 LN « FU : GOSUE 23020 


23540 FP « T 

23545 IF ERR THEN EP = FP-1 

23550 IF FP>LEN<PTR$) THEN FP * LEHvF'TRT 


560 RETURN 


Usando i numeri delle linee iniziali e finali questo modulo estrae da PTRS i pun¬ 
tatori alla prima e all’ultima linea da listare e li pone in SP ed FP. 


TAVOLA DI CONTROLLO 





MODULO 3.12 


24400 REmMmwmmMMmmmvmmmm 

24401 REM LIST LINES 

24402 REM*******+$4:**^*i+:?H*?>^*i+i***#**it:*?t: 
24410 GOSUE 24200 ■ IF ERR THEN 24460 
24420 FRI NT "CCLH'J" : GOSUE 23500 IF F 
PCSPOR FP=0 THEN 24460 
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94430 FOR TI -- SP TO FP : 1 ~ RSC 
mRÌ.-Tl,l>> : GOSUB 23490 : HEXT 

24455 IF PEEKd52>~0 IH EH GET Tf 
-h 11 JHEH 24455 
24460 RE riJRH 


Olili* 

: PRIH 

IF T$ 


Usando i puntatori iniziale e finale determinati dal modulo precedente, questo 
modulo richiama il modulo di visualizzazione per trasferire le linee sullo schermo. 
La strana linea 24-145 controlla se le linee vengono al momento listate su un dispo 
sitivo come il registratore a cassette o la stampante. In caso contrario, il listing 
verrà visualizzato su schermo finché non verrà premuto un tasto. 


TAVOLA DI CONTROLLO 


24480 .123 
24419 154 
24455 214 


24401 134 
24420 241 
24460 142 


24402 123 

24430 126 


MODULO -3.13 


24506 

24501 REM DELETE LIHE<S> 

24592 

24510 GOSUB 24200 : IF ERR THEM 24460 
24520 GOSUB 23500 : IF FPCSP THEN 24560 
24530 T = SP : FOR TI = SP TO FP : GOSUB 
23300 i HEXT 
24560 RETURH 


Questo è il modulo di cancellazione di un blocco. Viene incluso ora poiché la sua 
unica funzione é quella di richiamare i moduli precedentemente introdotti, il più vo¬ 
luminoso dei quali è la routine che trova la prima e l’ultima linea. Invece di listare le 
linee specificate il modulo di cancellazione di una linea viene richiamato a turno per 
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ciascuna linea. Notate che dal momento che PTR$ viene accorciato ad ogni can¬ 
cellazione, il carattere cancellato ad ogni iterazione del ciclo si trova sempre nella 
stessa posizione. 


TAVOLA DI CONTROLLO 

24500 123 24501 78 24592 123 
24510 1.54 24520 160 24580 179 
24560 142 


SEZIONE 4: caricamento e salvataggio 


MODULO 3.14 


23700 

23701 REM SfìVE FILE TO DEVICE 

23702 

23705 GOSUB 11259 

23710 IF DEV=3 THEH INi = IH$+",S,W" 

23715 T$ = "H" : IF DEV=8 THEN INPUT "OV 
EPURI TE EXISTIHO FILE < V/N ? : "; T$ 

23716 IF T$="Y" THEN IN$ = "@0:" + IN$ 
23726 0PEN2 .. DE'v' .■ 2 .■ INT : CMD 2 
23730 SL = 0 : FL = 65536 

23750 GOSUB 24429 • PRINT#2 .. "END" 

23760 FRINT#2 : CLOSE 2 
23780 RETURN 


Questo modulo permette di salvare su disco o nastro un file che avete creato op¬ 
pure di inviarlo in uscita alla stampante. 


Commento 

23705: routine del monitor che richiede il nome del file. 

23710-23716: queste linee sono incluse a vantaggio di coloro che utilizzano l’unità 
a disco per memorizzare. L’efictto è di permettere alTutente di scrivere su di un file 
già esistente sul drive zero il file sequenziale con il contenuto di FI$. Le linee sono 
eseguite solo se DEV è posta uguale ad 8 (drive del disco). 
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23720-23760: viene aperto un file sul dispositivo specificato e l’istruzione CMD2 


precisa 


che tutti gli output successivi saranno inviati a quel dispositivo. Non resta 


altro che usare le normali routine di listing per stampare tutte le linee del file, con¬ 
cluderle con ‘END’ come sigillo e infine chiudére il file. 


tavola di controllo 


23700 123 
23705 166 
23716 39 
23750 116 


23701 177 
23710 179 
23720 138 
23760 54 


23702 


’30 


23 7 30 


123 

•“■i -”i 

200 

142 


MODULO 3.15 


23600 REM****************************** 

23601 REM LORD FILE FROM DEVICE 

?3602 REM****************************** 
23610 GOSUB 11250 

23615 IF BEV=8 IHEH IH* = IN$+",S,R" 
23630 OPEN2 ,DEV, 2 , I H$ 

23635 INPUT#2 , INt- : IF ST THEH GOTO 23 
650 

23648 IF IN*<>"END" THEH GOSUB 24000 : G 
OSUE 23300 : GOSUB 23100 : GOTO 23635 
23650 CLOSE 2 
23660 RETURN 


Immagine speculare del modulo precedente. Notate che nel ricaricare un file da 
nastro o disco devono venir usate tutte le normali routine di ingresso. Ciò perché le 
linee sono state listate per esteso con i loro numeri di linea e non nella forma a due 
byte dei numeri di linea che è mantenuta correntemente in FIS. Il sistema di salva¬ 
taggio/caricamento su cassetta ha difficoltà nel salvare i caratteri ASCII non stam¬ 
pabili e il semplice salvataggio del contenuto di FIS provocherebbe l’alterazione di 
alcuni numeri di linea durante il ricaricamento. 

TAVOLA DI CONTROLLO 

23601. 51 23602 123 

23615 174 23630 31 

23640 215 23650 242 


23600 123 
23610 166 
23635 57 
23660 142 
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MODULO 3.16 


!-'i ! -■ U fi R |'r M W. $ <p. $ W- *' $ $ ìfc :f: #.+' $ * * '* 4 A 4 3- i 4 * $ * * $ 4- * +: 

'5501 REM CHHNGE DEVICE HUMBER 


:5502 REM*#.»*:«*f#***-**:+:^*«if.##+:*****'*if:## 
5518 PRIMI SPC<19) DEV 


■5520 INPUT "I CUP 3 NEW DEV ICE HUMBER : " .■ DE 


i i 


5530 RETURN 


Lo scopo di questo modulo è quello di permettere un output su cassetta, disco o 
stampante. Notate che un tentativo di eseguire un output o un input su di un dispo¬ 
sitivo non presente, o di eseguire un input da un dispositivo che non è in grado di 
farlo, come ad esempio la stampante, può avere il risultato di bloccare il program¬ 
ma. I dati non andranno persi se avrete iniziato l’esecuzione del programma con un 
GOTO 10000 invece che con una RUM. Prima di fare ciò è utile accertarsi che il fi¬ 
le 2 sia chiuso con l’istruzione PRINT 2: CLOSE 2 se stavate salvando al momen¬ 
to dell’interruzione del programma oppure con CLOSE2 se stavate caricando. 
Questo eviterà la possibilità di un errore del tipo “FILE ALREADY OPEN’’ (file 
già aperto). 


TAVOLA DI CONTROLLO 



>550:1 14 
>5520 11 



SEZIONE 5: renumerazionc 


MODULO 3.17 


24780 REM***:+:***:***:+.**:+.*-*****^**-#****** 
2470! REM RENUMBER PILE IN 3TEPS OF 10 
24702 REM*4:*4;4;4i********!f**4i:(t***4;4:*4i$^*# 
24710 LN = 10 : ERR = FALSE 
24720 IF LEN<PTRSK1 THEN 24780 
24730 PUR P - 1 T0 LEN<PTR$) 

24735 TI = PlSC (MIDT <PTR$.. T.■ .1 > > 
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o 4 740 Ftf-CTl > = CHRt <LN-1 NT <LN/256)*256 
t+c.HRf LN/2S6 > +M I P* <F I $ < f 1 > , 3 > 

'•'4750 LH = LN+10 NEXT 
24780 RETURN 


Forse il modulo non merita una sezione particolare, ma esegue operazioni indi- 
pendenti da quanto visto finora. Il suo scopo è quello di renumerare il vostro file 
con passo IO. Ciò è realizzato privando ogni elemento introdotto, nel file dei suoi 
primi due caratteri e quindi ricreandoli a partire da LN. che viene incrementato di 
IO ad ogni nuova linea. 


tavola DI CONTROLLO 


24700 123 24701 235 

24716 173 24720 169 

24735 160 24740 94 

24780 142 


MODULO 3.18 


25000 REH***r**$f*r*^:-*»:*:f:**r*-*:r**^:**«»* 

25001 REM flDD TU FILE FROM MEMORY 

25002 

V ’n QQ5UB 12050 008UB 11200 '• 005UB 

24200 

25050 FOR XV - rii) TQ Ffì 8TEP 15 

25060 IN$ « " BYT " • I..N a SI SI. = SL+ 

5 

25078 F OR X2 = 0 TO 1 4 : 02 $ - " " 

2508O OOSUB 11100 : IN$ a JHS+"$"+H$ 
25100 IF XZ-C14 RNU RBOER THEN TN$ = IN* 
+ ■ 'NEXT XZ 

25-110 OOSUB 23100 : NEXT XV - RETURN 


24702 123 
24730 42 
24750 45 


Dobbiamo ammettere che questo modulo è frutto di un ripensamento. La sua ri¬ 
levanza non sarà del tutto chiara finché non avrete a disposizione l’assemblatore, 
ma ciò che fa è permettervi di specificare un’area di memoria e piazzarla in un file 
di programma in linguaggio assemblatore nella forma di ‘direttive di byte’ — il con¬ 
tenuto di ciascuna locazione di memoria è specificato nel file assemblatore. Non 
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viene eseguita alcuna modifica automatica sulle istruzioni che accedono ad indirizzi 
nell’area da cui il codice é stato originariamente spostato. Tali istruzioni si riferi¬ 
ranno ancora all’area originale di memoria. 


TAVOLA DI CONTROLLO 



15001 200 25002 
5058 139 25060 
15080 170 25100 


Sommario 


Ora che avete a disposizione il file editor è bene che ci giochiate un po’ prima di 


procedere a immettere l’assemblatore. Questo vi aiuterà a evitare la seccatura di 
immettere un lungo file in linguaggio assemblatore e scoprire di averlo rovinato a 
causa di un uso sbagliato del file editor. Potete, se lo volete, immettere uno o due 
dei programmi in linguaggio assemblatore che si trovano più oltre in questo libro, 
salvarli su nastro o disco e poi ricaricarli per controllare se conoscete esattamente 
la procedura. 
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CAPITOLO 4 

ASSEMBLER MASTERCODE 


Dopo aver completato il file editor possiamo iniziare il lavoro di immissione del¬ 
la parte più importante e complessa del programma Mastercode, l’assembler. Il suo 
scopo è quello di permettersi di introdurre programmi in linguaggio assemblatore e 
di fornirvi strumenti per facilitare la programmazione, oltre a permettervi di tradur¬ 
re automaticamente quei programmi in linguaggio macchina. Il prezzo pagato per 
la flessibilità e la potenza di questa parte del programma è, la sua immensa coni 
plessità. Sarà un lavoro lungo trascriverlo tutto e senza dubbio ci saranno molti er¬ 
rori in questa fase, ragion per cui dovrete affidarvi alle tavole di controllo per esa¬ 
minare il risultato. Al termine di questo lavoro avrete lo stesso programma che ab¬ 
biamo utilizzato noi per sviluppare tutte le routine in linguaggio macchina contenu¬ 
te nel testo. Il programma funziona e questo basta a giustificare lo sforzo che ri¬ 
chiede pe'r copiarlo. 


SEZIONE 1: inizializzazionc 


MODULO 4.1 


19046 TR$ <2) = Tfi$< 2 >+" BVTWRDDBYENDORGPR 
TS't'M" 

19047 T$ = " 6.1 2 10690B0F02430B01000507 
018B858" 

19048 T$ ~ T$+ "B8CBECCCCECR884BEEE8C84C2 
0RBRERC " 

1904.9 T$ = T$+ " 4RER0D480868282fì6fì4060ED3 

8F8788D" 

1905Ò T$ = I$+"8E8CRRR8BR8R9R98" 

19051 GÒSUB 12200 : TR$ 3 > = Tl$ 
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19032 Tf 
F051EFF" 

19033 Tf 
F1916FF" 

19054 Tf 
F2526FF" 

19055 Tf 
F3936FF" 

19056 Tf 
C4546FF" 
19037 Tf 
F5956FF" 
19058 r$ 


a " FF11FFFFFF090FIFFFF1D0EFFF 
= T$+"FF15FFFFFFFFFFFFFF01FFFFF 
= T$+"FF2DFFFF2C293EFFFF3D2EFFF 
a T$+"FF35FFFFFFFFFFFFFF31FFFFF 
= T$+"FF51FFFFFF495EFFFF5D4EFF6 
= T$+”FF55FFFFFFFFFFFFFF43 FFFFF 
= T$+"FF6DFFFFFF697EFFFF7D6EFFF 


F6566FF" 

19039 GOSUB 12200 : TFl:f<4> = 11$ 

19060 T$ a "FF75FFFFFFFFFFFFFF?1FFFFF 

F7976FF” 

19061 T$ a T$+"FF91FFFF949D96FFFFFFFFFF8 
48586FF" 

19062 T$ - T$+"FF95FFFFFFFFFFFFFF81FFFFF 


F99FFFF" 

19063 Tf a T$+"BCB \ BEFFR0fi9fl2FFFFBBFFRFA 
405R6FF" 

19064 Tf « T$+"FFB5FFFFFFFFFFFFFFR1FFFFB 
4B9B6FF" 

19065 Tf « Tf h-"FFD1FFFFC0C9DEFFFFDDFFFFC 
4C5C6FF" 

19066 Tf « ff+"FFD5FFFFFFFFFFFFFFC1FFFFF 


FD9B6FF" 

1906? GQSUB 12200 : TR$C4> a TR$<4)+T1$ 
19068 Tf = "FFFIF FFFF0F9FEFFFFF DFFFFE 


4E5E6FF" 


19069 Tf = Tf + "FFF5FFFFFFFFFFF'FFFE 1 FFFFF 
FF9F6" 

1907P GQSUB 12200 : TRf<4a Tflf<4>+Tlf 
19880 SM = 50 •• SE a 0 : piu STRBLEfCSM? 
19101 DIM ERRf<18) 

19103 ERRfd) « "SINGLE EVIE QUI OF RRHG 
E" 

19104 ERRf<2> a "DOUBLÉ EVIE OUT OF RRHG 
E" 

19105 EPRf<3) = "INVOLI» OPRRHD OR ORCO» 
E" 

191.06 ERRf<4> = "INVOLI» DPEROTOR" 

19107 ERRf<5) = "INDEX IS HOT X OR V" 
39108 ERRf<6> « "LABEL NOI RLPHR-NUMERIC 


19189 ERRf(? > 


" INCORREI::'T WUMBER BASE" 
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jqi10 ERR$<8) = "LRBEl DEFINED TRICE" 
\kll2 ERR$< 10> = "BRfìNCH OUT 01- RRNGE" 
jó113 ERR$< 11 ') = "UHBE.FINED LRBEL" 

19114 ERR$<12) ~ "ONLV SINGLE CHR. EXPEC 
TÉD" 

19] US ERRf < 14) = "OIJT OF SVMBOL SF'RCE" 
19117 ERRACI5> -- "BIVISION BV ZERO" 

19120 ERR$a«> -- "RDDRESSING MODE HOT HV 
RJLBLE NI IH TH.IS OPCOBE" 

19980 DIU FI $<254> '• GOSUB 24300 
19930 RETURN 


Se avete preso nota di ciò che avete finora trascritto, capirete immediatamente 
che il presente modulo non può restare completamente isolato, ma va congiunto ad 
un altro già esistente e precisamente al modulo di iniziaìizzazionc per le tabelle dei 
tipi di codici operativi e degli operandi sulle quaii lavora il disassembler. Nel caso 
dell’assembler si useranno le stesse tabelle, ma nella direzione opposta. Invece di 
cercare un valore in memoria e poi controllare l’appropriato codice mnemonico ed 
il modo di indirizzamento, l’assembler esaminerà i file in ingresso attraverso il file e- 
ditor e cercherà di costruire l’equivalente di ciascuna linea in linguaggio macchina 
oppure di rifiutare la linea come istruzione non lecita. 

Se ci riflettete, questo lavoro richiede alcune informazioni in più poiché, invece 
di essere in grado di leggere un valore e quindi scegliere un formato basato sul codi 
ce operativo, l’assembler deve, dopo aver trovato un’istruzione come ’load’ all’ini¬ 
zio di una linea come ‘LDA SAAAA.X’, essere in grado di esaminare tutti i possi¬ 
bili formali di un’istruzione ‘load’ per vedere se la presente istruzione è lecita o no. 
Per far ciò sono state aggiunte altre due tabelle a quelle già memorizzate ne! prò 
granulia. Fra le linee 19047 e 19050 è situata una tabella di numeri esadecimali a 
due caratteri corrispondenti a ciascuno dei possibili codici operativi memorizzati in 
TA$(2) per il disassembler. Essi mostrano per ogni codice operativo il tipo del pri¬ 
mo operando che può essere usato. Le linee 19052-19067 consistono di ulteriori ti¬ 
pi di operandi per gruppi particolari di codici operativi. 

Più avanti nel programma vedremo come ogni possibile operando viene confron¬ 
tato con quello effettivamente presente nell’istruzione in linguaggio assemblatore 
contenuta in una riga di FI$. Per il momento basti sapere che rilevando un’istruzio¬ 
ne che inizi con ADC (il primo codice operativo a tre caratteri di TA$(2)) l’assem- 
bler passerà a TA$(3). Scoprirà cosi che questa potrebbe essere un’istruzione con¬ 
tenente il codice operativo 61 (esadecimale) ed esaminerà il formato dell’istruzione 
in linguaggio assemblatore per vedere se soddisfa il formato richiesto dal codice e- 
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1 - 

sadecimale 61, cioè ADC($50,X). Se il formato della linea inserita non è conforme 

a quello richiesto dal codice operativo, allora il valore 61 esadecimale (97 decimale) 
verrà usato per trovare il prossimo codice operativo possibile in TA$(4). Questo si. 
troverà nella 98.ma coppia di caratteri di TA$(4) (la numerazione parte sempre da 
zero) dove si trova il codice operativo 6D, che segnala un’altra istruzione compren¬ 
dente ADC, ma questa volta della forma ADC $AAA. Il valore 6D viene quindi u- 
sato per trovare il successivo codice nella tabella che produrrebbe un’istruzione ini- 
ziante con ADC. 

Nel caso di ADC ci sono otto possibili codici operativi e se dopo averli confron¬ 
tati tutti con il formato dell’istruzione effettivamente contenuta nella riga di FI$ 
nessuno di essi corrisponderà, l’ultimo possibile codice operativo conterrà il valore 
FF, che indica il termine della catena di possibili istruzioni ADC e quindi nessun 
codice operativo legale corrisponderà all’istruzione immessa. Se provate voi stessi a 
percorrere le tabelle con un qualsiasi codice operativo a tre lettere, prima di tutto 
trovandone la posizione in TA$, quindi trovando l’inizio della corrispondente cate¬ 
na di codici operativi in TA$(3) e seguendola in TA$(4) dovreste riuscire in breve a 
vedere cosa succede. L’unica vera aggiunta alle tabelle già previste dal disassem¬ 
bler é fatta dalla linea 19046. Essa apparentemente aggiunge sette nuovi tipi di co¬ 
dici operativi alla lista su cui lavorava il disassembler. Queste sono le direttive as¬ 
sembler, cioè sette istruzioni che non sono istruzioni vere e proprie del linguaggio 
assemblatore, ma piuttosto istruzioni all’assembler di comportarsi in un certo mo¬ 
do durante l’elaborazione di un programma in linguaggio assemblatore. Le sette di¬ 
rettive, BYT, WRD, DBY, END, ORG, PRT e SYM, verranno spiegate più avanti 
nel programma. 

Da 19100 a 19120 troverete i vari messaggi di errore che l’assembler è in grado 
di generare quando incontra un’istruzione non valida o omissioni nel programma. 
Anche questi verranno spiegati più approfonditamente nel seguito. 

TAVOLA DI CONTROLLO 


1.9046 

1.93 

19047 171 

i — * 

© 

CO 

189 

19049 

252 

19050 170 

19051 

244 

19052 

251 

19053 248 

19054 

H i"j "? 
. 1 . 1 

19055 

1 

19056 187 

19057 

•-7 

19058 

{•’, ._“i o 

19059 245 

19860 

79 

19061 

198 

19062 53 

19063 

216 

1 y0b4 

88 

19065 13 

19066 

68 

19067 

221 

19068 91 

19069 

192 
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19070. 
19103 
19103 
19103 
19113 
19117 
19990 


221 

19080 

ri f 

191 01 

109 

53 

19104 

47 

19105 

( % 

91 

19107 

192 

19108 

1 

152 

19110 

215 

1.9112 


8 

19114 

184 

19116 

40 

122 

142 

19120 

3 (•' 

19980 

1 0 1 


MODULO 4.2 


20000 REM*:***'****** * * * * * * * * * * * * * * ****** 
20061 REM GENERATE fiSSEMBLV LISTINO 
20002 REM****************************** 
20005 SE = 0 : FMfìX = LEN<PTR$> •' SV = F 
RLSE 

20010 INPUT " ERRAR OHL.V LISTINO <V/N> 

T :f 

20020 EO = LEFTf CTT, 1 > = "V" 

20025 INPUT '■ FISSEMELE TO MEMGRV C'tVN) 

: " ; T$ 

20029 RM = LEFT$ <T$,1)="V" 

20030 AB - 0 : REM SET START ADDRESS 
20040 FOR Q = 1 TO FMfìX 

20050 I m ~ FI LE$ <RSC ( M1D$ <PTR*Q, 1 > ) ) 

: Q$ ss "" 

20060 GOSUB 26400 

20070 IF EXIT THEN Q=FMAX+1 

20080 NEXT Q 

20085 T = FRE<X) 

20090 AD = 0 : EC = 0 PRINT "ADE. DAT 
A SQIJRCE CODE" 

20100 FOR Q = 1 TO FMfìX 
20110 IH$ = FILE$(ASC (MID$ <PTRT,Q,1>)> 
: 0 $ = "" 

20120 Q1 = AD 
20130 GOSUB 27600 
20140 IF ERR THEN 20250 
20145 IF EO THEN 20222 
20150 H a Q1 : GOSUB 11000 
20168 Q$ -- Ht 

20180 02 - 3 : IF LENC0TKQ2 THEN 02 = L 
EN(OT) 

20185 01$ ^ J.F 0$--" " THEN 20221 










20130 FOR Q3 = 1 IO Q2 

20200 H = RSC CMIDf <Of-.. Q3.. 1 > ) : GOSUB 1 

1000 

20218 IF LEN<H$>=1 THEN H$ == "0"+H$ 

20220 Q1 $ ~ Ql*+H$ : NEXT Q3 

20221 FRI NT Q$ SPC<6-LEN<Q*)) Sii' SPCC8- 
LEN ( Q1 :f y > ; : GOSUB 28100 

20222 IF HOT fili OR 0$="" THEN 20250 

20225 POR :•< = 1 IO LEM OUT) : F'OKE Ql+X-1 
j RSC <MID$ l : NEXT 

20250 IF EXIT THEN Q = FMflX+1 : REM LEflV 
E LOOP 

20260 NEXT Q 

20270 PRINT : FRI NT " TOTAL ERRORS IN FI¬ 
LE .EC : PRINT 

20280 IF SV THEN GOSUB 26300 

20230 IF PEEK(152> O 8 THEN FRINT#2 : C 

L0SE2 : GOTO 20300 

20295 GET T* : IF T$="" THEN 20295 

20300 RETURN 














ESEMPIO DI ERRORI: lista dei soli errori 


, r j,-j, data sou.ro? code 

50 L..BL000 LBQ $R000 


LfìBEL BEFINEB TUICE ERROR 
60 JSR <$'300) 


flDBRESSING MODE HOT RVRILELE HITH TRI 
c ; nPCODE ERROR 

70 LBR #LBL000/H 


DIVISION BV ZERO ERROR 

80 LBX #LBL000-LBL000/256 

0256 


INVOLIB OPERRTOR ERROR 

140 BCC LBL000 

BRRNCH OUT OF RRNGE ERROR 
150 JMP LBL001 

IJHDEFI NED LRBEL ERROR 

150 JMP LBL001 


IJHDEF INEB LRBEL ERROR 

160 LBL000 RTS 


LRBEL DEFINEB TUICE ERROR 
TOTRL ERRORS IN FILE - 8 


H 0 

LBL000 C800 

total Tìu.fober of symbols- 
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ESEMPIO DI ERRORI: lista dell’intero programma 


add. 

data scorce code 


0 

.10 PRT 


0 

20 SVM 


0 

30 ORO *C800 


C800 

40 H = 0 



50 LBL000 LDQ 

$R000 

LRBEL DEFINED TUICE ERROR 


C800 

50 LBL000 LDQ 

$R000 


60 JSR ($300) 



RDDRESSING MODE HOT RVRILBLE UJ.TH THI 
OPCODE ERROR 

70 LDR «LBL000/H 


DIVISIOH 


@256 


BV ZERO ERROR 

80 L.DX #LBL000“LBL000/256 


IH' 

v'RL ID 

OPERRTOR ERROR 

C804 

8543 

90 STR 4103 

C806 

8642 

100 8TX & 102 

C808 

60 

110 RTS 

C809 


120 ORO $CR00 

CR00 

18 

130 CL.C 


140 BCC LBL.000 


BRRHCH OIJT OF RRHGE ERROR 
150 JMP LBL001 


UNDER' I NED LRBEL ERROR 

150 JMP LBL001 

IJHDEFI NED LRBEL ERROR 

160 LBL000 RTS 

LRBEL DEFINED TNICE ERROR 
CR06 160 LBL000 RTS 

TOTRL ERRORS IN FILE - 8 


H 0 

I..BL000 C800 

total nufi-ibor of symbols-2 
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Nelle sezioni precedenti dell’intero programma abbiamo adottato l’approccio di 
spiegare tutti i moduli necessari al funzionamento di un modulo di controllo prima 
di introdurre il modulo stesso. Fare questo nel caso deH’assembler provocherebbe 
una serie di pagine di spiegazioni prima di poter offrire un quadro di ciò che il pro¬ 
gramma effettivamente fa. La grande complessità dcll’assembler ci ha imposto di a- 
dottare un approccio ‘top-down’ e cercare di passare da una semplice spiegazione 
del funzionamento del programma ad un esame dettagliato dell’intero listing ag¬ 
giungendo poi i dettagli necessari. È per questo motivo che iniziamo il nostro com¬ 
mento sulla parte principale dcH’asscmbler da questo modulo principale di control¬ 
lo. Il modulo da solo è totalmente inutile, non compie quasi alcun lavoro se non 
quello di distribuire i compiti ad altre parti del programma. Nonostante ciò, com¬ 
mentarlo a questo punto ci aiuterà ad offrire una panoramica necessaria del funzio¬ 
namento dell’assembler. 

Commento 

20010-20029: l’assembler è in grado di compilare un programma in linguaggio 
macchina in quattro modi differenti. Può offrire un listing completo della istruzione 
in linguaggio assemblatore insieme all’elenco di ogni errore presente oppure può e- 
vitare il listing e fornire i soli errori. Un esempio di entrambe queste possibilità è 
mostrato al termine del modulo (v. sopra). Può anche essere istruito per piazzare in 
memoria i programmi in codice macchina risultanti dalla compilazione oppure per 
eseguirli lasciando intatta la memoria. Se ad esempio desiderate inserire in memo¬ 
ria in una posizione prestabilita una routine in codice macchina fra un punto di ini¬ 
zio ed uno di fine determinati senza alterare la memoria esterna ad essi, fareste be¬ 
ne a richiedere prima un listing completo del programma senza che esso venga po¬ 
sto in memoria. Esso mostrerà esattamente dove il codice macchina assemblato sa¬ 
rebbe stato posto in memoria prima di compiere qualcosa di irrimediabile! 

20030-20085: prima di iniziare a lavorare sul programma in linguaggio assembla¬ 
tore la variabile AD viene posta uguale a zero, il che significa che l’indirizzo dal 
quale partirà eventualmente il programma in linguaggio macchina è zero. Durante 
il programma in linguaggio assemblatore questo punto di partenza verrà quasi in o- 
gni caso riinizializzato a qualche altra posizione in memoria per mezzo della diretti¬ 
va ORG (origine). L’assembler ora elaborerà il programma due volte in quelli che 
vengono chiamati due ‘passi’. Questo ciclo richiama le sezioni del programma che 
esegue il ‘Passo 1’. Durante il passo 1 ogni variabile (compreso un tipo particolare 
di variabile detto ‘label’ — etichetta —, che definisce la corretta destinazione di me¬ 
moria per un’istruzione di salto) viene esaminata e posta, con i valori ad essa asso¬ 
ciati, in una tabella nota come ‘tavola simboli’ che verrà usata nel successivo as¬ 
semblaggio del programma. 
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Ogni linea del programma in linguaggio assemblatore viene ottenuta in INS pri¬ 
ma di eseguire il passo 1. Al ritorno dall’esecuzione del passo 1 su una qualsiasi li¬ 
nea, viene fatto un controllo della variabile EXIT, che è posta uguale a TRUE se 
viene incontrata la direttiva END durante l’esame del programma. A questo punto 
l’assemblaggio ha termine anche se non si è raggiunto il termine di FI$. Al termine 
del ciclo viene richiamata la funzione FRE, che assicura il compattamento e l’elimi¬ 
nazione degli spazi inutili, in modo da evitare pericoli di traboccamento dalla me¬ 
moria. 

20090-20300: questo è il ciclo che controlla il secondo passo attraverso il program¬ 
ma da assemblatore. La routine per il secondo passo è richiamata alla linea 20130. 
Durante il secondo passo il programma verrà effettivamente assemblato, con la 
traduzione di ogni istruzione valida nei byte necessari a rappresentarla in codice 
macchina come codice operativo cd operando, inclusa la traduzione delle variabili 
in valori e l’assegnamento dei valori alle etichette usate per i salti. Al ritorno dalla 
routine viene eseguito un test della variabile ERR per vedere se è stato rilevato un 
errore. In questo caso nessun’altra elaborazione è eseguita su quell’istruzione. Se si 
é richiesto il listing dei soli errori (EO posta uguale a TRUE) la routine di stampa 
viene omessa. Nelle linee 20150-20221 viene visualizzata in modo standardizzato 
l’informazione ottenuta dal secondo passo. Viene incluso l’indirizzo in cui una i- 
struzione verrà inserita in memoria se il programma verrà effettivamente assembla 
to in memoria, la rappresentazione esadecimale degli 1, 2 o 3 byte che vi saranno 
posti e l’istruzione originale in linguaggio assemblatore. I byte della necessaria i- 
struzione macchina sono contenuti in 0$ e nelle linee 20222-20225. Se AM risulta 
TRUE, questi byte vengono posti in memoria iniziando dalla locazione opportuna. 
Viene eseguito un test per vedere se si è incontrata la direttiva END e viene prele¬ 
vata la successiva linea di programma in caso di esito negativo. Infine, se si è trova¬ 
ta la direttiva SYM durante il corso del programma viene posta a TRUE la variata 
le SY e verrà visualizzata la tavola simboli al termine del listing del programma as¬ 
semblato. 


TAVOLA DI CONTROLLO 


10000 

123 

20001 

180 

20002 

123 

10005 

3 

20010 

22 ? 

20020 

195 

10025 

197 

20029 

189 

20030 

144 

10040 

•"17 

Of 

20050 

139 

20068 

169 

10070 

214 

20080 

243 

20085 

167 

10090 

63 

20100 

37 

20110 

139 

0 ì 20 

P4Q 

u~ 1 «■ 

20130 

2 f cL 

20140 

116 

10145 

30 

20.150 

213 

20160 

211 
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20180 

109 

20185 40 

20190 

175 

20200 

5 

20210 22 

1 20220 

244 

20221 

86 

28222 58 

20225 

198 

20250 

6 

20260 24: 

3 20270 

10 

20280 

236 

20290 63 

20295 

181 

20300 

142 




SEZIONE 2: 

routine del 

passo 1 


MODULO 4.3 





26400 REM********** * * * * * * * ****** * *** * :* * 

26401 REM DO PASS 1 fìSSEMBLV ON IH$ 

26402 REM****************************** 

26405 PRINT " CHOM] CCDW] f:CDW.1CCDW3 CCDW] CC 
DM 3 C CDW 3 [ CDW 3 C CDW 3 li CDW 3 C CDW 3 C CDW 3 C CDW 3 C C 
DW3 C CDW31 CDW 3[CDW3 CCDW3 CCDW3 CCDW3[CDW 3[C 
DW3CCDW3 

II 

26406 PRIMI " 

II 

26407 PRINT "CHOM3[CDW3[CDW3 C CDW 3 C CDW3CC 
DW 3 [ CDW 3 11 CDW 3 C CDW 33. CDW 3 C CDW 3 [ CDW 3 l CDW 3 C C 
DW3[CDW3[CDW 3[CDW 3[CDW 3[CDW3C CDW3 CCDW 3 CC 
DW3CCDW3" ; : GOSUB 28100 

26410.PRSS = 1 : EXIT « FRESE : PTR = 2 

26420 GOSUB 28850 

26430 IF MOT ERR THEN 26540 

26440 IF 1=58 AMD LEMCH$)=@ THEN 26420 

26450 IF 3=59 OR THEN RETURN 

26460 GOSUB 28700 

26480 GOSUB 28850 

26490 IF MOT ERR THEM 26540 

26500 IF T=58 AMD LEM<H$)=0 THEM 26420 

26520 RETLJRM 


26540 

IF PCD5 

15 THEN GC 

ISUB 26600 : GOTO 2 

6556 




26550 

GOSUB 2 

16100 


26552 

GOSUB 2 

:6300 : IF 

ERR HMD 0P>3 HMD 

0P<7 

THEM OP 

= Op+6 : 

GOTO 26552 

26555 

GOSUB 2 

16560 


26556 

1 F LEM( 

IN$»PTR 

FlMD MOT EX IT THEM 


26420 


RETURN 
















Avendo esaminato il modulo di controllo generale per i due passi, vediamo quel¬ 
lo relativo al passo 1. Ancora una volta lasceremo al seguito le spiegazioni detta¬ 
gliate dei singoli compiti e ci concentreremo su una descrizione del lavoro globale 
svolto durante questo passo. 


Commento 

26400-26407: queste linee cancellano le due righe inferiori dello schermo e vi 
stampano l’istruzione in linguaggio assemblatore correntemente elaborata, come 
traccia per l’utente del punto cui c giunta l’elaborazione del passo 1. 

26410: la variabile PTR indica dove avrà inizio l’esame della linea corrente. È po¬ 
sta uguale a due per saltare i due byte contenenti il numero di linea. 

26420: viene richiamata la routine che identifica il codice mnemonico usando la ta¬ 
bella in TA$(2). La routine esaminerà IN$ a partire dal carattere seguente quello 
indicato da PTR fino a trovare un carattere diverso da una lettera o da una cifra, 
quindi restituirà il controllo. 

26430-26520: al ritorno dal precedente GOSUB, H$ conterrà una stringa di carat¬ 
teri terminante con uno spazio, due punti o un qualsiasi altro carattere che non sia 
una cifra o una lettera. Se, al ritorno dal GOSUB precedente, non è stato trovato 
un codice operativo valido il cui simbolo mnemonico sia stato posto in H$, la linea 
26440 controlla se è stato trovato qualche carattere prima dei due punti che sepa¬ 
rano le istruzioni sulla stessa linea (o un carattere qualsiasi che non sia una lettera 
o una cifra). In caso negativo, i due punti vengono ignorati e viene chiamata di 
nuovo la routine che ricerca un codice mnemonico, stavolta a partire dai due punti 
in avanti. 


Nella linea 26540 viene eseguito un test per vedere se si è raggiunto un punto e 
virgola o la fine linea. In tal caso non viene intrapresa alcuna attività sulla linea 
corrente. In questo modo si possono inserire commenti nel programma senza con¬ 
fusione facendoli iniziare con un punto e virgola. Se HS contiene dei caratteri allo¬ 
ra, dal momento che non sono stati identificati come codici mnemonici, vengono 
intesi come etichetta ed il nome viene immesso nella tavola simboli dalla subroutine 
alla riga 28700. Una volta posta l’etichetta nella tavola simboli, il programma ini¬ 
zia la ricerca del codice operativo mnemonico che dovrebbe seguirla. 
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26540 : a questo punto dev’essere stato identificato un codice mnemonico valido. 
Se occupa una posizione nelle tabelle, indicata dalla variabile PO, maggiore di 55 
esso rappresenta una direttiva assembler e viene richiamata la subroutine nella li- 
nea 26600 per valutarla. 

26550: a questo punto, trovato un codice mnemonico valido, viene richiamata la 
subroutine che valuta il tipo di operando. 

26552: ora abbiamo un codice mnemonico lecito e, si spera, un operando di tipo le¬ 
cito. Non abbiamo ancora la garanzia che il tipo dell’operando sia compatibile con 
quel codice operativo. Questa linea richiama la subroutine che stabilisce se essi for¬ 
mano una coppia effettivamente valida. La subroutine, nel caso incontri un indiriz¬ 
zo che potrebbe essere raggiunto con il modo di indirizzamento in pagina zero, 
supporrà che quel tipo di indirizzamento sia effettivamente quello usato, benché ciò 
possa provocare una segnalazione d’errore nel caso il codice operativo in esame 
non possa usare l’indirizzamento in pagina zero. Al ritorno dalla subroutine, se è 
stato selezionato l’indirizzamento in pagina zero ed è stato segnalato un errore, il ti¬ 
po dell’operando, rappresentato dalla variabile OP, viene incrementato di 6 per tra¬ 
sformarlo in un modo di indirizzamento assoluto. 

26555: nella valutazione di un’istruzione in linguaggio assemblatore c’é sempre la 
necessità di tener conto di quanti byte richiederà l’istruzione una volta assemblata, 
in modo che l’istruzione seguente inizi al punto giusto in memoria. Questo viene 
realizzato dalla subroutine alla riga 26560. 

26556: se l’analisi della linea non è ancora terminata e non si è raggiunto un 
‘END’, il resto della linea viene elaborato allo stesso modo. 


TAVOLA DI CONTROLLO 


26400 

123 

26401 

2 

26402 

123 

26405 

225 

26406 

56 

26407 

227 

26410 

255 

26420 

180 

26430 

68 

26440 

84 

26450 

102 

26460 

174 

26480 

180 

26490 

68 

26500 

84 

26520 

142 

26540 

34 

26550 

166 

26552 

190 

26555 

176 

26556 

247 

26557 

142 
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MODULO 4.4 


28100 REM****#**#*****.f*^******^**-**"#* 

28101 REM PRIMI IN* TO THE SCREEN 

28102 

28128 F'R.1 NT 256*fiSC < MIU* ( I N$, 2, .1. > > +R8C 

CMID* <IN*,1,1>) MID* <IN*,3> 

28140 RETURN 


Questo modulo si limita a stampare la linea corrente del programma in linguag¬ 
gio assemblatore, compreso il suo numero di linea. Essa verrà stampata nella parte 
bassa dello schermo durante il passo 1. Nel passo 2 potrà essere inclusa nel pro¬ 
gramma una direttiva PRT per inviare l’uscita alla stampante. 


TAVOLA DI CONTROLLO 

28100 123 28101 187 28102 123 

28120 80 


MODULO 4.5 


2 81 fa 0 # # # W. # # * * * $ f * * 

28151 REM SYMBOL TO NON-LETTER/EIGIT 

28152 REM****##****####:**#:*'**^#'###*'### 
28160 H* = "" : T = -1 

28165 F'TR = PTR+1 

28170 IF PTR>LEN<IN*> THEN 28218 

28180 T = ftSC (MID* <IH*,PTR, 1>> 

28185 IF T=32 Fi MB LENCH*>-0 THEN 28168 
28138 IF T<48 OR T>30 OR < T>57 FINII T<65 
> THEN 28210 

28200 H* -- H*+CHR* <T> : GOTO 28165 
28218 RETURN 


Questo semplice modulo esamina la linea in IN$ a partire dal punto indicato dal¬ 
la variabile PTR, componendo una stringa, HS, da cui vengono eliminati gli spazi i- 
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niziali e che termina non appena si incontri un carattere che non sia una lettera o 
un numero. 11 modulo viene usato dal successivo per restituire una stringa conte¬ 
nente un codice menmonico o un’etichetta. 


TAVOLA DI CONTROLLO 


28150 

123 

28151 

240 

28152 123 

28160 

62 

28165 

185 

28170 5 

28180 

178 

28185 

79 

28190 179 

28200 

9 

28210 

1 4 iì! 



MODULO 4.6 


28850 REM****************************** 

28851 REM TEST FOR OPCODE/IHRECTIVE 

28852 REM*:***************************** 
28860 GQSUB 28150 

28870 ERR = FALSE 

28890 F'TR = F'TR-Ì 

28895 IF LElKHf>03 THEN 28940 

28900 PO = -2 

28910 -PU “ F'0+3 

28920 IF Hf-MIDT <TA$<2>,PO,3> THEN 2895 
0 

28930 IF <PQ+3>OLENCTR$<2>> THEN 28910 

28940 ERR = TRUE 

28950 PO - CP0-1V3 

2896*0 ERR CP0“56> UF: ERR 

28970 IF P0>56 THEN PO = PO-1 

28980 RETURN 


Una volta ottenuta una stringa di caratteri che può contenere o meno un codice 
operativo valido o un’etichetta, iniziamo il procedimento vero e proprio di valuta¬ 
zione di ciò che si è trovato. Il metodo di ricerca del codice operativo corretto è sta¬ 
to descritto nel modulo 1 ed il procedimento inizia con questo modulo. 
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Commento 

28890: se la stringa restituita in H$ non è lunga tre caratteri, non può rappresenta¬ 
re un codice operativo valido e quindi non ha senso esaminare la tabella. 

28895: PTR è riinizializzato per puntare all’ultimo carattere di H$ nella linea da 
cui è stato estratto. 

28900-28940: questo ciclo esamina TA$(2) — che contiene i codici mnemonici leci¬ 
ti a tre lettere — per confrontare ogni gruppo di caratteri con quanto estratto da 
H$. Il puntatore per questo scopo è inizializzato a —2 di modo che alla prima itera¬ 
zione del ciclo, quando viene aggiunto un tre, la ricerca parta dalla posizione uno. 
Se viene eseguito l’intero ciclo e si raggiunge la linea 28940, i tre caratteri esaminati 
non corrispondono ad alcun codice mnemonico lecito. 

28950: l’indirizzo in TAS(2), che veniva incrementato con passo 3, è ora modifica¬ 
to in modo che, ad esempio, i tre caratteri nella posizione 19-21 siano ora identifi¬ 
cati in PO come il codice mnemonico 7. 

28960: questa strana linea deve tener conto del fatto che le tabelle del disassembler 
su cui lavora l’assemblatore contengono i tre caratteri *???* che vengono usati 
quando il disassembler non riesce ad associare un codice operativo valido al conte¬ 
nuto della memoria. Senza questo controllo si potrebbe immettere *???’ in un pro¬ 
gramma in linguaggio assemblatore e creare così confusione al momento del suo ri¬ 
conoscimento come codice mnemonico valido. La linea segnala un errore se H$ 
consiste di *???’. 

28970: anche questa linea deve tener conto di *???’ nella tabella. Le direttive as¬ 
sembler cadono dopo il punto di domanda, quindi al momento di rinumerarle per 
gli scopi dell’assembler la loro posizione è diminuita di uno. 


TAVOLA DI CONTROLLO 


28850 

123 

28851 158 

28852 

123 

28868 

173 

28870 70 

28890 

186 

28895 

176 

28900 110 

2^910 

13 

28920 

57 

28930 24 

28940 

27 

28950 

28980 

61 

142 

28960 193 

28970 

89 
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MODULO 4.7 


28700 REM*###*'****#****#******'*'****-#*** 

28701 REM HDD SYMBOL TO SYMBOL TRBLE 
2R7Ó2 REM****************************** 
2R710 IF SE>"8M THEN EXIT = TRUE : PfiSS 
*2 : EH - 14 : GOTO 28000 

28720 GOSLJB 28250 : IF HOT ERR THEN 2883 
0’ 

28740 T$ « LEFT:f <H*+ H ",6> 

20745 TB = PTR 

28750 GOSUB 28150 : REM DOES = FOLLOW 
28760 IF TOSI THEN PTR * TB : RE •= RII '• 
"goto 28780 

28770 T8 = T : GOSIJB 28600 

28780 EH ~ 0 

28790 IF RE<0 OR RE>65535 THEN ST$<SE)=T 
f+CHE$ <0)+CHR$ <0>+CHR* <2> ; GOTO 2881 
0 

28800 ST$<SE> = TT+CHRT (RE-1NT(RE/256)* 
256 >+CHR* <INT<RE/256>> 

28810 SE ~ SE+1 
28820 RETURN 

28830 IF 8888=1 RND LEN(ST*<T1>><9 THEN 
ST $ (T' 1 > = ST$<T1 >+CHR$ <8> 

28835 IF PRS302 THEN 28840 

28836 TR = PTR : GOSUB 28.150 : IF T061 
THEN PTR = TR : GOTO 28840 

28837 GQSUB 26000 : REM SCRN PfìST = SIGN 
(IF PRESENT) OH PFlSS 2 

28840 IF PRSS02 OR LEN(ST$(T1 >K9 THEN 
RETURN 

28845 EH = RSC (MIDJ (ST$(T1.7, 9 , 1 > > : 00 
TO 28000 


Questo è il modulo di controllo per la valutazione di variabili ed etichette e si oc¬ 
cupa anche di inserirle nella tavola simboli se non sono state già definite in prece¬ 
denza. Nel modulo 2 un’etichetta era stata descritta come un tipo di variabile per a- 
more di semplicità. Di fatto un’etichetta è una costante che identifica un punto in 
un programma in linguaggio macchina cui un salto deve giungere. Usando le eti¬ 
chette diviene possibile assemblare un programma in linguaggio macchina in posti 
differenti della memoria senza dover ricalcolare gli indirizzi cui va fatto il salto. 
L’assembler individuerà automaticamente la posizione in memoria di un’istruzione 
etichettata e sostituirà il salto a quell’etichetta con un salto all’indirizzo opportuno. 
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Commento 

28170: se ci sono più simboli di quanti la tavola simboli ne possa contenere (50) 
l’assemblaggio del programma cessa immediatamente e viene segnalato l’errore 
corrispondente. 

28730: l’etichetta in H$ viene ora inviata al prossimo modulo, che esamina la tavo¬ 
la simboli (ST$) per vedere se è già presente in essa. Se lo è, ERR è restituita col 
valore ‘falso’ e viene segnalato un errore di ‘label defìned twice’ (etichetta definita 
due volte). Questo uso invertito dell’errore può sembrare confusionario, ma è ne¬ 
cessario dal momento che un uso eccessivo del modulo, alla linea 28250, richiederà 
la segnalazione di errore se un’etichetta non è presente nella tavola simboli. 

28740: H$ viene ampliato alla lunghezza di sei caratteri nel caso sia più corto. Sei 
caratteri é la lunghezza massima per un’etichetta. 

28745-28760: il contenuto di H$, se è valido, può essere una variabile oppure un’e¬ 
tichetta. Se è un’etichetta tutto ciò che Passembler ha bisogno di sapere è l’indirizzo 
dell’istruzione così etichettata. Se è una variabile sarà seguita da un *=’ per asse¬ 
gnarle un valore. Il modulo esaminatore viene richiamato alla linea 28150 per rica¬ 
vare il carattere seguente. Se il primo carattere dopo la variabile (trascurando gli 
spazi) non è un segno di uguale, dev’essere un’etichetta e RE (risultato) viene usata 
per memorizzare l’indirizzo corrente della istruzione. PTR viene ripristinata al ter¬ 
mine dell’etichetta usando la variabile temporanea TB. 

28870: se il contenuto di HS è una variabile, viene richiamato la sezione ‘valutatore’ 
delle espressioni’ del programma. Non tenteremo di spiegare il funzionamento di 
questo valutatore fino al termine del programma, dal momento che interrompereb¬ 
be il nostro tentativo di seguire le principali attività dell’assembler. Per ora basta 
sapere che una chiamata al valutatore di espressioni nel caso di una linea come 
VAR=256 BYTE 1 + 15 restituirebbe nella variabile RE il risultato della parte de¬ 
stra dell’equazione. Alla fine tutto diverrà chiaro! 

28790: se RE è minore di zero o maggiore di 65535 (massimo valore ottenibile che 
la CPU possa trattare in una sola istruzione) allora vengono aggiunti al nome della 
variabile o dell’etichetta nella tavola simboli due caratteri che rappresentano un ri¬ 
sultato di 0 ed un flag che segnala un errore di ‘doppio byte al di fuori dell’interval¬ 
lo’. 

28800: se RE è un numero valido allora viene aggiunto nella forma a due byte al 
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termine del nome della variabile o dell’etichetta in ST$. Dal momento che il nome è 
stato reso di lunghezza 6 in ogni caso, sarà facile recuperare il valore di RE per o- 
gni variabile o etichetta. 

28830: si arriva a questa linea solo se il nome corrente è già presente nella tavola 
simboli. Se non eseguito da un codice d’errore, viene aggiunto ora il codice d’erro¬ 
re 8, che sta per 'etichetta definita due volte’. 

28835-28837: anche questo modulo viene usato nel passo 2. Nel passo 2 il nome è 
già presente in tavola simboli (piazzatovi durante il passo uno) e cosi la prima parte 
del modulo non verrà eseguita. Una volta ricavato il nome in H$, se il carattere 
successivo è un uguale, il risultato dell’espressione è già stato ottenuto ed il modulo 
alla linea 26000, che trova il termine di un’espressione o di una riga, viene richia¬ 
mato per superare il resto dell’espressione. 

28840: i messaggi d’errore sono stampati solo durante il passo 2 e, ovviamente, so¬ 
lo se si trova un codice d’errore al termine di un nome della tavola simboli. 


TAVOLA DI CONTROLLO 


28700 

123 

28701 175 

28702 

123 

28710 

239 

28720 112 

28740 

31 

28745- 

126 

28750 81 

28760 

227 

28770 

241 

28780 181 

28790 

40 

28800 

251 

28810 253 

28820 

142 

28830 

106 

23835 101 

28836 

117 

28837 

160 

28840 126 

28845 

55 


MODULO 4.8 

28250 REM****************************** 

28251 REM FINII LABEL IH ST$ 

28252 REM#*##***#****#*'*##*# # * * * * * * * * * * 
28260 ERR = FALSE ; FI ~ 0 : TI *- 0 
28270 IF LEFKHTX6 THEN H$ « H$+" " : GO 
TQ 28278 
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28280 IF T1=SE THEN ERR = TRUE : RETURN 
28290 IF MID$ <ST$<T1 > , !, 6)OH$ THEN TI 
k 'f 1 + 1 : GOTO 28280 

28295 H = RSC (MIH$ <ST$<T 1 >, 8, .1 ) >#256+R 
se MID* < 3T$< T1 >, 7, 1 ) > : RETURN 


Questo è un modulo richiamato dal precedente per determinare se un nome di 
variabile o un’etichetta è già presente nella tavola simboli. Il modulo ritorna un se¬ 
gnale d’errore di tipo 1 o 2 per indicare la presenza o l’assenza della variabile o eti¬ 
chetta. Viene anche restituito, se c’è, il contenuto dei caratteri 7 e 8. 


TAVOLA DI CONTROLLO 


28250 123 
28260 75 
28290 219 


MODULO 4.9 


28251 242 
28270 249 
28295 92 


28252 123 
28289 132 


28000 R E M $ W- $ # f. $ # $ # $ # * $ $ $ M $ * # # $ $ # 

28001 REM ASSEMBLER ERROR ROUTINE 

28002 REM#*#*#**#*^###**#*#*###*#*###* 
28805 IF PTR>=300 OR PRSS02 THEN 28056 
: REM SUPRESS SECONDRRV ERRORS IN LINE 
28010 FRI NT SPC< .1.4) ; '• GOSUB 28160 
28015 EC = EC+1 

28020 FOR X = -13 TO PTR : FRINT " = " ; : 
NEXT X : FRINT "CCUPJ" 

28030 FRINT " " ERRTCEhD " ERROR” 

28040 PTR = 300 : ERR ~ TRUE 
28050 RETURN 


Questo modulo, che viene chiamato dalla linea 28840 del modulo 4.7, stampa 
un messaggio se è stato segnalato un errore. 
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Commento 

28005 -' se è già stato segnalato un errore per la linea corrente, si assegna alla varia¬ 
bile PTR il valore impossibile di 300 (la lunghezza massima di una stringa è 255) e 
non vengono stampati altri errori per quella linea. Gli errori non vengono stampati 
durante il passo 1. 

28010: nel passo 2, l’indirizzo di memoria e i byte dati occupano 14 spazi in una li¬ 
nea. Quando si stampa una linea in cui dev’essere segnalato un errore, l’indirizzo e i 
dati non vengono stampati. 

28020-28030: l’errore non è segnalato solo da un messaggio d’errore in uscita, vie¬ 
ne anche stampato un puntatore alla posizione approssimativa in cui è stato rileva¬ 
to l’errore nella linea, secondo quanto indicato dal valore di PTR. 


TAVOLA DI CONTROLLO 


28000 

123 

28001 63 

28082 123 

28005 

92 

28616 106 

28815 221 

28020 

63 

28036 124 

28840 16 

28050 

142 




MODULO 4.10 


26000 REM##^#*#*#*#*#***##-***#.^**-*-*#*** 

26001 REM SYMBOL UP TO COLON ETC. 

26002 REM*****^* - *****:^*^*#.**^*****# 
26010 H$ = "" : TI - LEM< INi> 

26020 PTR = F'TR+1 

26030 J.F TKP.TR THEN 26068 

26040 T = fìSC (Min* (IN*..PTR, 1)) 

26045 IF T=32 THEN 26026 

26050 IF T058 RNH T<>59 THEN Hi ~ l-li+CH 

R$ (T > : GOTO 26026 

26060 RETURN 


Questo modulo è simile al modulo nella linea 28150 (modulo 5) ma il suo scopo 
è differente, dovendo determinare il termine di un’istruzione in linguaggio assem- 
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blatore. Differisce dal modulo 5 in quanto non termina col ritrovamento di un ca¬ 
rattere diverso da una cifra o una lettera, ma solo se trova un delimitatore come 
due punti, punto e virgola o il termine della riga, tralasciando tutti gli spazi presenti 
nella linea originale. 


TAVOLA DI CONTROLLO 


26000 123 
26010 98 
26040 178 
26060 142 


26001 210 
26020 135 
26045 247 


26002 123 
26038 190 
26050 201 


MODULO 4.11 


26600 

26601 REM CRLCULRTE DIRECTIVE LENGTH 

26602 REM****************************** 
26610 TI = LENCINf) 

26620 IF P0=56 THEN 26720 : REM BYT DIRE 
CTI VE 

26625 IF PO--60 THEN GOSUB 28600 : RD = R 
ESULI : REM DEFlL WITH ORG DI RECTI VE 
26627 IF P0=59 THEN EXIT = TRUE 
26630 IF P0I58 THEN RETURN : REM END & 0 
RG DIRECTI.VE8 

26640 REM FIND LEM. OF WRD & DBV 

26650 RD - RD+2 

26660 PTR =■■ PTR+1 

26670 IF PIRITI THEN RETURN 

26680 T = RSC CMIDf CINf,PTR.1>> 

26690 IF T=58 OR T=59 THEN RETURN 
26700 J.F T046 THEN 26660 
2671.0 GOTO 26650 
26720 REM LENGTH FOR BVT. 

26730 RD == RD+1 

26740 PTR -• PTR+1 

26750 IF PIRITI THEN RETURN 

26760 T = RSC CMIDf <IN$,PTR,1>> 

26770 IF 1=58 OR 1=59 THEN RETURN 
26780 IF T046 THEN 26740 
26790 GOTO 26730 
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Questo modulo viene usato esclusivamente nel passo 1 ed agisce su quelle diret¬ 
tive assembler che sono rilevanti ai fini di quella parte dell’esecuzione del program¬ 
ma e cioè: BYT, WRD, DBY, END, ORG. Il modulo viene richiamato dal modulo 
3 ogni volta che venga individuata una direttiva assembler. 


Commento 

26620: si occupa della direttiva BYT che verrà discussa alla linea 26720. 

26625: 60 è il codice per la direttiva ORG che viene usata per stabilire l’indirizzo in 
memoria su cui si baserà il successivo assemblaggio. ORG verrà seguito sulla linea 
da un’espressione ed il ‘valutatore di espressioni’ (non ancora spiegato) viene ri¬ 
chiamato per ottenere dall’espressione l’indirizzo desiderato. AD, l’indirizzo cui 
verrà inserita l’istruzione macchina successiva, è quindi posto uguale al valore del¬ 
l’espressione. 

26627: se si incontra la direttiva END si pone a TRUE la variabile EXIT. 

26630: a differenza di ORG ed END, nessuna delle direttive con codice superiore a 
58 (SYM, PRT) interessa l’esecuzione del programma durante il passo 1. 

26640-26710: a questo punto dell’esecuzione del programma, deve essere stata in¬ 
contrata una delle due direttive WRD e DBY. Nel programma in linguaggio assem¬ 
blatore esse' prendono la forma: WRD (o DBY) SAAAA.SBBBB.SCCCC, cioè la 
direttiva è seguita da una serie di valori a due bytes che verranno immessi diretta- 
mente in memoria — permettendo così di definire una tabella. 

La differenza fra le due direttive è che WRD prenderà i due byte specificati ad e- 
sempio con SABCD e li memorizzerà nell’ordine CD,AB mentre DBY lo farà nel¬ 
l’ordine AB,CD. La CPU lavora solitamente su numeri a due byte in cui il byte me¬ 
no significativo (nel nostro caso CD) viene per primo. Il problema con queste due 
direttive nel passo l è che, come abbiamo già notato, si deve tener conto della lun¬ 
ghezza in byte di ciascuna istruzione in modo che si possa dare alle etichette, quan¬ 
do vengono definite nel passo 1, il loro corretto indirizzo in memoria. BYT e WRD 
possono essere seguiti da un numero qualsiasi di valori, fino ad una stringa di lun¬ 
ghezza massima 255. Questo ciclo perciò esamina la linea, contando il numero di 
valori a due byte ed incrementando il contatore di indirizzo AD di due per ogni va¬ 
lore trovato. 

26720-26790: l’istruzione BYT specifica valori ad un solo byte da memorizzare. 
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Questo ciclo svolge una funzione simile a quella del precedente, incrementando 
però il contatore di indirizzo di uno per ogni valore specificato. 


TAVOLA DI CONTROLLO 


26600 

123 

26601 

2.22 

26602 

i 

j. i—. 

26610 

70 

26620 

88 

26625 

40 

26627 

189 

26630 

61 

26640 

4 

26650 

216 

26660 

185 

26670 

76 

26680 

178 

26690 

247 

26700 

184 

26710 

172 

26720 

181 

26730 

215 

26740 

185 

26750 

76 

26760 

178 

26770 

247 

26780 

183 

26730 

171 


MODULO 4.12 


26 i00 ftEttMMMMmMmMMWMmMXWM 

26101 REM OPERANE TVPE TO BE LJSED 

26102 I? !" ! Y I $ '+ # # 6: # M :+■: $ :+ <K $ M $ * :+ *#$$:♦: $ $ + >K 'M 6 ?H 6.4: 
26110 T6 = PTR ; GOSUB 26000 

26129 ERR = FALSE 

26130 IF LENCH$>=0 THEN QP = 1 : RETURN 
26140 IF H$= 11 R” THEN OP ~ 0 ; RETURN 
26145 IF RSC <H$>-35 THEN OP = 2 •' RETUR 
N 

26170 OP ~ 12 

26180 IF L.EFT$ <H$, 1) = "<" THEN OP = OP-3 
26190 T -- 1 ^ TI = LEIKHT) 


26200 

T2 ” ASC 

<MID$ <H$,T, 1 >> 


26210 

IF T2046 

filili T<T1 THEN 

T = T+l : 

goto ; 

26200 



2.6220 

IF T2046 

THEN 26275 


26230 

T = T+l 

IF T>T1 THEN 2 

16270 

26240 

T2 = RSC 

C fi I D$ < H$ / T.. 1 ) ? 


26250 

r?cr 

IF T2=83 

THEN OP = OP-1 

: GOTO 262 

i J 

26260 

IF T2=88 

THEN OP = OP-2 

: GOTO 262 

• .j 

26270 

REM HOT fi 

VfìLID INDEX 


26272 

EH = 5 ' 

GOTO 28008 


26275 

IF<0P=12) 

FlNIK < P0>2RNDP0< 

6 1 OR v F'02 6 fi 


NDPO< 10 ORPO= 12ORP0= : 11 > THEN OP = 3 
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262 

SI 

REM 

1 ZERO PAGE UPRRNHS 

262 

82 

IF 

ORCIO THEN RETURN 

nf'Z* 

tvU 

84 

T7 

= PTR : PTR -■ T6 

262 

86 

G0S 

;IJB 28600 

262 

88 

IF 

ERR OR RESULT>255 THEN 

262 

90 

OP 

— 0P—6 


26292 PTR = T? 
26294 RETURN 


Seguendo lo sviluppo del passo 1 tracciato dal modulo di controllo, incontriamo 
ora le due routine che determinano il tipo di operando da usare e se quel tipo di o- 
perando é adatto al codice operativo, ricordando che non tutti i modi di indirizza¬ 
mento possono venir usati con ogni codice operativo. Lo scopo di questo modulo è 
di determinare il tipo di operando che si addice al formato mostrato nell’istruzione. 


Commento 

26110: a questo punto PTR indica il carattere seguente il codice mnemonico e vie¬ 
ne richiamata la subroutine in linea 26000 per ottenere la parte operando dell’istru¬ 
zione, privata degli spazi. 


26130: se l’operando ha lunghezza zero, il modo d’indirizzamento è quello implici¬ 
to ed il valore di OP è zero. 

26140: se l’operando è ‘A’ allora si tratta di indirizzamento in accumulatore, 
OP=l. 

26145: se il primo carattere dell’operando è ‘ ’, si tratta di indirizzamento imme¬ 
diato, OP=2. 

26150-26160: si fa ora l’ipotesi temporanea che il tipo di operando sia 3, modo di 
indirizzamento relativo. La subroutìne seguente viene richiamata per vedere se le 
tabelle in TA$ indicano che ciò è possibile per il codice operativo ricavato (cioè il 
codice operativo deve rappresentare un ‘branch’ di qualche genere). Il metodo per 
far ciò viene descritto nel prossimo modulo. I riferimenti a OS interessano solo per 
il passo 2. La subroutine in linea 26300 inserirà in OS il byte il cui valore rappre¬ 
senta il codice operativo determinato. 

L 
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A questo punto invece usiamo la subroutine solo per determinare se il tipo dell’o¬ 
perando è 3 — non vogliamo incrementare 0$ a questo punto, cosi prendiamo nota 
della sua lunghezza prima che venga richiamata la subroutine e quindi lo riinizializ- 
ziamo alla stessa lunghezza. Se viene segnalato un errore al ritorno dalla subrouti¬ 
ne in linea 26300 allora l’operando di tipo 3 non è adatto al codice operativo che 
abbiamo e la subroutine procede. 

26170-26260: queste linee sono un’immagine speculare di quelle del disassembler 
che determinano il formato dell’operando dal valore del byte operando di un’istru¬ 
zione macchina. In questo caso ricaviamo il tipo di operando dal formato dell’istru¬ 
zione. 

26270-26280: se si rileva un punto ed il formato non corrisponde a quello dell’indi- 
rizzamento indicizzato viene segnalato un errore di tipo 5 — l’indice non è X o Y. 

26282-26294: queste linee controllano se é possibile eseguire l’istruzione con il mo¬ 
do di indirizzamento in pagina zero — il formato per l’indirizzamento assoluto e 
quello per la pagina zero sono uguali e si è fatta sino a questo punto l’ipotesi che gli 
operandi che potevano essere entrambe le cose fossero indirizzamenti assoluti. 
Questo è possibile solo con tipi di operando maggiore di 10, che rappresentano i modi di 
di indirizzamento assoluti. PTR è riportato al valore iniziale al termine del codice 
operativo e l’operando viene rivalutato dal valutatore di espressioni. Se il risultato è 
nell’intervallo 0-255 allora è possibile usare il più veloce modo di indirizzamento in 
pagina zero ed il tipo dell’operando è ridotto di 6 per trasformare il modo di indiriz¬ 
zamento in un qualche tipo di indirizzamento in pagina zero. 


TAVOLA DI CONTROLLO 


26100 

123 

2610 

i 

213 

26102 

123 

26110 

145 

2612 

0 

70 

26130 

190 

£6140 

254 

2614 

5 

250 

26170 

244 

26130 

160 

26190 

232 

26200 

243 

26210 

243 

2622 

0 

236 

26230 

12 

26240 

243 

2625 

0 

112 

26260 

112 

26270 

41 

2627 

C~ 

215 

26275 

213 

26281 

39 

2b28 

2 

211 

26284 

95 

26236 

173 

2628 

8 

156 

26290 

17 

26292 

115 

2629 

4 

142 
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MODULO 4.13 


?6300 REM#****if::+::i:********if:*#*'**:^j}«!♦:*****: 

26301 REM EVRLUflTE OPCOIJE 

26302 R E M 'M # # # $ # # W. '# '* % W- # $ st! # # >H M # $ M $ % % '$. % % % 

26310 TI = 3 : T = PO 

*06320 T - ASC < MI D$ < TR$< T1 ), T+1, 1 > > 

26330 IF T=255 THEN ERR = TRIJE : RETURN 


26340 TI 

= 4 : T2 = FISC <MID* 

<TR*a>, IN 

r<T/2+l>; 

1 > > 


26350 IF 

*‘l 

26355 T2 

<1 FINTI T>=0 THEN T2 - 

INT(T2/16 

-■ T2 AND 15 


26360 IF 

T2O0P THEN 26320 


26370 0$ 

= 0$+CHR* <T> 


26380 ERF 

? ~ FRESE 


26390 REI 

’IJRH 



A questo punto facciamo di nuovo uso delle nuove tabelle aggiunte a TAS nel 
primo modulo delfassembler. Lo scopo del modulo è quello di confrontare il codice 
operativo ottenuto con il tipo di operando per vedere se effettivamente sono com¬ 
patibili. In caso contrario deve venir segnalato un errore. 


Commento 

26230: T é stato posto uguale a PO, la posizione del codice mnemonico in TA$(2). 
Cosi l’equazione fra stringhe in questa linea punta ad una coppia di byte in TA$(3). 
TA$(3) contiene, per ogni possibile tipo di codice operativo, la prima delle forme di 
byte possibili che quel codice operativo può assumere. Il valore è anch’esso il primo 
elemento nella catena delle possibili forme di byte del codice operativo. 

26330: se, con ripetute iterazioni, il valore trovato nella tabella (successivamente 
TA$(4)) è FF esadecimale, non ci sono altre forme di codice operativo disponibili e 
viene segnalato un errore. 

26340-26355: una volta trovato il codice operativo possibile, esso viene confronta¬ 
to col modo d’indirizzamento necessario in TA$(1). I modi d’indirizzamento per 
ciascun codice operativo sono memorizzati in TA$(1). Un singolo carattere può 
venir usato per memorizzare due numeri fra 0 e 15 semplicemente moltiplicando 
uno dei numeri per 16 e poi sommandoli insieme. In questo modo, il modo d’indi- 
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rizzamento per il codice operativo uno nella tabella dei codici operativi si, troverà 
nel primo carattere di TA$(1), come quello per il codice operativo due. 

Le linee 26350 e 26355 estraggono la parte necessaria del valore del carattere 
(0-15 e 16-255). Se la posizione del codice operativo (PO) nella tabella è dispari, al¬ 
lora viene usata la metà ‘alta’ del byte (T2/16) mentre se PO è pari viene usata la 
metà ‘bassa’ del byte (T2 AND 15). 

26360: se il modo d’indirizzamento risultante non è lo stesso ottenuto esaminando 
l’operando dell’istruzione in linguaggio assemblatore, la subroutine torna alla linea 
26320 e preleva la prossima forma possibile di codice operativo, insieme al modo 
d’indirizzamento ad essa associato e così via finché non ci siano altre forme di co¬ 
dici mnemonici. 

26370: se l’esecuzione del programma ha raggiunto questo punto è perché é stato 
trovato nelle tabelle un modo d’indirizzamento adatto al formato dell’operando 
prelevato dall’istruzione in linguaggio assemblatore. Il codice operativo corretto 
per l’operando ed il tipo del codice operativo vengono aggiunti ad OS, che viene u- 
sato per memorizzare ciò che verrà poi immesso in memoria, sebbene questo abbia 
importanza solo nel passo 2. 


TAVOLA DI CONTROLLO 


26300 

123 

26301 224 

26302 

123 

26310 

9 

26320 191 

26330 

87 

26349 

167 

26350 81 

26355 

83 

26360 

24 

26370 238 

26380 

70 


26390 142 


MODULO 4.14 


26560 REM****************************** 

26561 REM BYTE LENGTH 

26562 REM****************************** 
26565 RD = RD+1 

26579 IF GP>1 THEN RD = RD+1 

26580 IF 0P>8 THEN RD « RD+1 
26590 RETURN 
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Terminiamo l’esame del lavoro dell’asscmbler durante il passo 1 con questo bre¬ 
ve modulo. Esso usa semplicemente il tipo di codice operativo per determinare 
quanti byte richiederà l’istruzione assemblata al momento di essere memorizzato 
nel passo 2. Questo affinché la variabile AD possa essere aggiornata correttamente 
allo scopo di definire le etichette. 

tavola di controllo 

26560 123 26561 197 26562 123 

26565 215 26570 234 26580 24ì 

26590 142 


SEZIONE 3: routine del passo 2 


MODULO 4.15 


27600 

27601 REM DO PflSS 2 FISSEMELA' 

27602 REM********:+:*******^:**4-:*****+**4-:* 
27605 PflSS = 2 

27610 0$ = "" 

27620 EXIT = FALSE : ERR = FALSE 
27625 F'TR = 2 
27630 G03UB 28850 
27640 IF HOT ERR THEH 27720 
27650 IF T=58 AND LEN<H$)=0 THEH 27630 
27660 J.F T=59 OR T=-l THEH ERR - FALSE 
RETURN 

27665 GOSUB 28700 
27670 GOSUB 28850 
27680 IF HOT ERR THEH 27720 
27690 IF T=58 AND LEM<H$> =0 THEH 27630 
27695 IF T-59 OR T*-l THEH ERR = FALSE 
RETURN 
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27700 

EH - 3 : omn 28000 


27720 

IF PG>55 THEH GOSUB 2721 

30 : GOTO 2 

7745 

27723 

T5 =•• PTR : OOSUB 26100 

: J8 = PTR 

: RTF 

? = T5 


27725 

OOSUB 26300 : IF MOT ERI 

? THEH 2773 

27727 

IF DP<7 AND QP>3 THEH OF 

■ r -“ ijP+6 

PTR = 

T5 : GOTO 27725 


27728 

EH •= 18 : GOTO 28808 


27729 

REM TRIS BIT RTTEMPS TO 

MATCH RESE 


OLITE flliD MODE IO OPCODE IF ZP HHS FRI LEU 
27730 OOSUB 26568 

27740 Ìf'nÒT ERR AND LEM<0$ >>0 THEH GOSU 
E 27008 : PTR = T8 

27745 IF LEN<IN$»PTR AND HOT EXIT TEI EH 
27630 

27750 RETURN 


Passiamo ora a fissare l’attenzione sul passo 2. Questo è il modulo di controllo 
per il passo 2 e, come abbiamo fatto per il modulo 4.3, seguiremo lo svolgimento 
generale dell’attività prima di passare ai dettagli. 


Commento 

27605-27700: ad eccezione dello svuotamento della stringa d’uscita (OS) e del fat¬ 
to che la variabile PASS viene posta uguale a due, queste linee somigliano alla pri- 
.ma parte del modulo del passo 1. Viene fatto un test sul codice operativo e se il ri¬ 
sultato è negativo si suppone che la prima parte della linea sia un’etichetta o una 
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variabile. Di conseguenza viene eseguita un’altra ricerca di codice operativo e se la 
linea non attribuisce un valore ad una variabile e non c’è alcun codice operativo 
presente viene segnalato un errore di tipo 3 ‘operando o codice operativo non vali¬ 
do’. 

27720: se il tipo di codice operativo è maggiore di 55, è stata incontrata una diretti¬ 
va assembler e viene richiamato il modulo opportuno per valutarla. 

27723: viene richiamata la subroutine alla linea 26100 per valutare l’operando. 

27725-27728: la subroutine alla linea 26300 esamina il confronto finora eseguito 
fra codice operativo e modo d’indirizzamento; tenta quindi di confrontarli nel mo¬ 
do d’indirizzamento assoluto, segnalando l’errore di tipo 18, ‘modo d’indirizzamen 
to non lecito per questo codice operativo’, se il confronto non è positivo. 

27730: con questa chiamata viene incrementato il contatore di byte AD. 

27740: se non è stato trovato alcun errore e c’è qualcosa in OS, viene valutata la 
parte operando dell’istruzione. T8 è una variabile usata per muovere il puntatore 
oltre un indice del tipo ‘X’ alla fine dell’operando, dal momento che il valutatore 
dell’operando non esaminerà oltre. T8 è stata inizializzata nella linea 27723 dopo 
l’esecuzione della subroutine che valuta il tipo dell’operando ed esamina l’operando 
fino in fondo, incluso ogni indice seguente. 

27745: questa linea permette la valutazione di più frasi sulla stessa linea di pro¬ 
gramma. 


TAVOLA DI CONTROLLO 


27600 

123 

27601 

107 

27602 

123 

27605 

31 

27610 

163 

27620 

87 

27625 

26 

27630 

180 

27640 

63 

27650 

88 

27660 

8ì-l 

27665 

174 

27678 

180 

27680 

63 

27630 

88 

27635 

38 

27700 

213 

27720 

32 

27723 

138 

27725 

104 

27727 

178 

27728 

11 

27723 

248 

27730 

176 

27740 

46 

27745 

251 

27750 

142 
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MODULO 4.16 


27200 REM#*####*###*#####**#########**# 

27201 REM DI RECTI VE OPERfiMIi EVHLUATQR 

27202 mwwmmwmMMmwMMMMM 

27205 ERR = FALSE 

27210 IF PO=60 THEM GOSUB 28600 : AD =RE 
SIJLT 

27214 IF P0=62 THEM SV = TRUE 

27215 IF P0=61 THEM OPEM 2,4 • CMIJ 2 • P 
RIMT " CCDW] ADD. HATA SOIJRCE CODEC CU 
W3 " 

27220 IF P0=59 THEM EXIT = TRUE 

27230 IF F‘0>58 THEM RETURM 

27240 IF F'0=56 THEM 27330 

27250 REM IJBV & WRD DIRECTIVES 

27260 GOSUB 28600 

27270 IF RESULT<0 OR RESULT>65535 THEM E 
M = 2 : GOTO 28000 

27280 IF 80=58 THEM RESULT - IMTCRESULT/ 
256 > +256*<RESULT-1NT<RESULT/256>*256> 

27281 REM 27280 RESERVE3 HI. A LO. BVl'ES 
IF DIRECTIVE IS DBV 

27290 TI -T ■ QOSUB 27100 : AD = AD+2 

27300 IF TI=32 THEM GOSUB 28150 

27310 IF TI=46 THEM 27260 

27320 RETURM 

27338 REM BYT DIRECTIVE 

27340 GOSUB 28600 

27350 IF RESULT<0 OR RESULT>255 THEN EH 

: = 1 : GOTO 28000 

27360 GOSUB 27140 : AD = Afl+1 

27370 IF T=32 THEM GOSUB 28150 

27380 IF T=46 THEM 27340 

27390 RETURM 


Nel passo 1 abbiamo esaminato un modulo che determinava le azioni necessarie 
una volta incontrata una direttiva assembler e calcolava anche la lunghezza della 
stessa se si trattava di BYT, WRD o DBY. Questo modulo è simile, con la difTcren 
za che esegue azioni del tipo dell’apertura di un canale verso la stampante per l’u- 
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scita, della segnalazione SY di stampare la tavola simboli o del trasferimento di dati 
da una direttiva BYT, WRD o DBY alla stringa d’uscita 0$. 


Commento 

27210: se si incontra una direttiva ORG, viene valutato il suo operando e il conta¬ 
tore di byte AD viene posto uguale al risultato. 

27214: la presenza di SYM nel programma segnala a SY di stampare la tavola sim¬ 
boli al termine del listing del codice sorgente. 

27215: la presenza di PRT nel programma apre un canale d’uscita verso la stam¬ 
pante per il listing del codice sorgente, altrimenti l’uscita è verso lo schermo. 

27220: END provoca a questo punto il termine del passo. 

27250-27320: il valore di una direttiva a due byte (DBY, WRD) è ottenuto usando 
il valutatore di espressioni ed i due byte vengono scambiati se la direttiva è DBY. 
Questo perché la routine alla linea 27100, che viene ora richiamata, piazza i due 
byte nella stringa OS nell’ordine basso/alto, ad viene incrementato di due. La linea 
27300 esamina il resto tralasciando gli spazi iniziali e la subroutine esegue un ciclo 
a ritroso per prelevare un altro doppio byte se si incontra un punto. 

27340-27380: è una routine analoga a quella sopra descritta, ma per la direttiva a 
byte singolo BYT. 


TAVOLA DI CONTROLLO 


2720O 

123 

27201 74 

27202 

123 

27205 

70 

27210 166 

27214 

41 

27215 

154 

27220 189 

27230 

221 

27240 

77 

27250 243 

27260 

173 

27270 

176 

27280 Ì50 

27281 

31 

27290 

30 

27300 219 

27310 

52 

27320 

142 

27330 93 

27340 

173 

27350 

67 

27360 252 

27370 

170 

27380 

2 

27390 142 
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MODULO 4.17 


27900 REmmmmrMmmmmmmmmmwm 

27001 REM EVRLUfìTE OPERANE 

27002 REM****:m:*******r**!f:***#****#:+** 

27010 ERR = FRLSE 

27020 IF Qp<2 THEH RETURN 

27030 IF 0F‘=3 THEN 27500 

27040 IF OP-2 THEN 27400 

27050 GOSIJE 28600 

27068 IF ERR OR LEN(O$)=0 THEN RETURN 

27070 IF (RESULTC0 OR RESULT>255> HND OR 

<9 THEN EH = 1 ■' GOTO 28000 

27080 IF RE3ULT<0 OR RESULT>65535 THEN E 

N- 2 : GOTO 28000 

27090 IF OP<9 THEH 27140 

27100 T = IUT < RE3ULT/256 > 

27110 RESULT - RESULT-T#256 

27120 GOSUE 27140 

27130 RESULT - T 

27140 0$ = 0$+CHR$ <RESULT> 

27150 RETURN 


Questo modulo valuta un operando il cui tipo è già stato determinato, ponendo il 
risultato nella forma a uno o due byte in 0$. 


Commento 

27020: se OP è minore di due non c’è operando. 

27030: se OP è tre, è richiesto il modo d’indirizzamento relativo e viene richiamata 
la routine alla linea 27400. 

27050-27080: per tutti gli altri valori di OP viene usato il valutatore di espressioni 
per ottenere un risultato, che verrà confrontato con i requisiti del modo di indirizza¬ 
mento per uno o due byte. 

27090-27140: queste sono due routine che pongono il risultato ottenuto dal valuta¬ 
tore di espressioni sotto forma di byte in OS. Notate che i numeri a due byte vengo¬ 
no posti in OS con il byte ‘alto’ in seconda posizione. 
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TAVOLA di controllo 



27000 

123 

27001 47 

27902 

123 

27010 

70 

27020 164 

27030 

20 

27040 

18 

27050 173 

27060. 

98 

27070 

14 

27080 144 

27030 

27 

27100 

117 

27110 248 

27120 

171 

27130 

37 

27140 121 

27130 

142 


MODULO 4.18 


27500 REM************************^**** 

27501 REM EVRLUHTE RELATIVE EXPRESSIOH 

27502 

27510 OOSUB 28600 

27520 IF LEN<O#>=0 OR ERR THEN RETURN 

27530 RESULT ■ RESULT-RD 

27540 II- RESULT<0 THEN RESULT - RESULT+2 

56 

27560 IF RESULT<256 AND RESULT>=0 THEN 2 
7140 

27570 EH = UH 
27580 GOTO 28000 


Questo modulo valuta l’operando di un’istruzione usando l’indirizzamento relati¬ 
vo, in cui cioè un salto è specificato ddd dall’indirizzo corrente fino a 127 posizioni 
in più o a 128 in meno in memoria. 


Commento 

27530: dal momento che stiamo parlando di indirizzamento relativo, un salto é 
specificato in primo luogo all’indirizzo cui è diretto,quindi il salto relativo è calcola¬ 
to sottraendo l’indirizzo corrente registrato in AD. 

27540: salti negativi non possono venir immessi direttamente nel programma in lin¬ 
guaggio macchina, ma devono essere trasformati nella forma nota come ‘comple¬ 
mento a due’, in cui ogni numero negativo viene sommato a 256, in modo, da pro¬ 
durre un numero positivo nell’intervallo 128-255. Così i salti con valori superiori a 
128 sono in realtà negativi ed il loro valore si ottiene sottraendo 256. 
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TAVOLA DI CONTROLLO 




500 

123 

27501 

178 

27502 

123 

'510 

173 

27520 

98 

27530 

224 

'540 

75 

27568 

32 

27570 

230 


27580 163 


MODULO 4.19 


27400 REH****^******************»***^* 
27401. REM E VALLIATE IMMEDIATE EXPRESS I OH 
27402 REM*****************************^ 
27410 T5 = PTR : GOSUB 26008 
27420 IF ASC <HfK>35 THEN 27488 
27430 IF MI UT <HT, 2,1 " THEN 27458 

27440 PTR « T5 

27442 IF PTR>LEN(IN$) THEN 27446 
27444 IF ASC <MID$ < IN*.. F'TR, 1 > >035 THEN 
PTR = F'TR+1 = GOTO 27442 
27446 OP = 8 : GOSUB 27058 ; OR = 2 
27448 RETURN 

27450 REM SINGLE CHR. EXPECTEB 
27460 IF LEN<H$K>3 THEN 27480 
27470 0$ - Of+MIDT- CH'IL. 3, 1 ) : RETURN 
27480 EN = 12 
27490 GOTO 28008 


Questo modulo ricava il valore di un operando per un’istruzione concernente in¬ 
dirizzamenti immediati, cioè in cui viene posto direttamente in un registro un valore 
delPintervallo 0-255. 


Commento 

27410-27420: l’operando viene ricavato in HS usando la routine alla linea 26000. 
Se non inizia con un ‘ ’ verrà segnalato un errore. 

27430: se il secondo carattere dell’operando è un apice singolo, la routine si aspet¬ 
terà un unico carattere, dopo l’apice, il cui valore ASCII sarà quello dell’operando. 
Non dovrebbe venir usato un secondo apice. 

27442-27444: queste due linee trascurano ogni spazio in INS fino al simbolo ‘hash’ 
(#)■ 
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27446: poiché l’indirizza mento immediato coinvolge un singolo byte, si usa la rou¬ 
tine alla linea 27050 per valutare l’operando come se fosse il modo d’indirizzamen- 
t0 8 (indiretto Y) e per porre il byte in OS. È semplicemente una scorciatoia. 

27460-27470: queste due linee si occupano di caratteri singoli fra apici. Se la lun¬ 
ghezza di HS non è tre allora il formato non è lecito e viene segnalato un errore. Se 
H$ è lungo tre caratteri, il carattere centrale viene preso come quello il cui valore 
ASCII rappresenta l’operando. 


TAVOLA DI CONTROLLO 


27408 

123 

27401 

229 

27402 

123 

27410 

144 

27420 

230 

27430 

243 

27440 

113 

27442 

15 

27444 

169 

27446 

43 

27448 

142 

27450 

14 

27460 

174 

27470 

205 

27480 

232 

27490 

163 






MODULO 4.20 


26900 

26901 REM DUMP SYMBOL TFIELE TO SCREEN 

26902 

26910 IF SE<1 THEN 26975 
26915 FRINT 

26920 FOR X = @ TO SE-1 
26930 PRINT L.EFTT <ST$(X) , 6!> TfìB<10> i 
26940 H = RSC (MIET (ST$(X>,8))*256+RSC 
<MID* C8T$(X>.- 7> ) 

26950 00SUE 11000 
26960 PRINT-H$ 

26970 HEXT X 

26975 PRINT "CCDWI T0TRL NUMBER 0F SYMBO 

LS-" SE 

26930 RETURN 


Questo modulo non fa realmente parte del passo 2: semplicemente porta in usci¬ 
ta la tavola simboli al termine del passo 2 se la direttiva SYM era presente nel pro¬ 
gramma in linguaggio assemblatore. 
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TAVOLA DI CONTROLLO 


26900 

123 

26901 6 

26902 

123 

26910 

27 

26915 153 

26920 

115 

26930 

30 

26940 64 

26950 

159 

26960 

26980 

37 

142 

26970 250 

26975 

248 


SEZIONE 4: il valutatore delle espressioni 

Finora ci siamo riferiti molte volte alla misteriosa entità nota come ‘valutatore di 
espressioni’, prendendo per buono che facesse ciò che ci si attendeva da lui. Natu¬ 
ralmente sarebbe stato possibile scrivere un assembler che richiedesse che tutti i va¬ 
lori venissero espressi in decimale o esadecimale, ma si risparmia una grande quan¬ 
tità di tempo e di sforzi se l’utente è in grado di immettere variabili, saltare ad una 
posizione ad esempio sei byte più avanti di una particolare etichetta oppure calco¬ 
lare byte immettendo qualcosa del tipo LDA VAL/256. Il valutatore di espressioni 
rende possibile tutto ciò, come scoprirete quando vi appresterete a trascrivere le no 
stre routine in linguaggio macchina. 


MODULO 4.21 


28300 REM****************************** 

28301 REM EVRLUflTE LfìBEL OR NUMBER 

28302 REM****************************** 

28320 GOSUB 28150 

28325 IF T=40 RND , LEN<H$>=0 THEN GOSUB 2 
8150 

28330 TI - LEM (. H$> 

28335 IF a=--l OR T-32 OR T=58 OR T-59 0 
R 1=4.1 OR T=46> AND TI = 0 THEN RETURN 
28340 IF T1=0 THEN 28390 
28350 IF fiSC <H$K=57 THEN H = VfiL(H$> 
GOTO 28492 

28360 GOSUB 28250 : REM FINII LABEL IH SV 
MBOL TRBLE 

2837G IF ERR THEN EN = 11 : H = 0 : GOTO 
28000 

28380 GOTO 28492 
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28390 


REM HEX.. QCTRL 


OR EI NFlRV 


flLURTE 

28400 


28410 
20420 
28430 


T2 = T ■ GOSUB 28.150 
IF LEN<H$>=0 THEN 28450 
IF 12=36 THEN 28470 
IF T2=37 THEN ERSE = 2 


0 

28440 IF T21=38 THEN ERSE = 8 


NUMBERS EV 


GOTO 2847 
GOTO 2847 


0 

28450 REM INVflLID LABEL 
28460 M - 0 ^ EN ~ 6 : GOTO 28000 
28470 REM TEST IF VALI» NOMEER 
28475 GOSUB 11950 

28480 BASE = 16 : REM DEFAULT ERSE 
28490 IF ERR THEN H = 0 : EN = 7 : GOTO 
28000 

28492 PTR = PTR-1 '• GOSUB 28150 •' REM GE 
T NEXT OPERRTOR 
28495 RETURN 


TAVOLA DI CONTROLLO 


28300 

123 

28301 48 

28302 

12:: 

28320 

173 

28325 250 

28330 

d'4 » 

28335 

198 

28340 255 

23350 

206 

28360 

173 

23370 99 

28380 

176 

28390 

140 

28400 243 

28410 

24 r 

28420 

56 

28430 155 

28440 

162 

23450 

54 

28460 188 

28470 

oo 

28475 

173 

28488 221 

28490 

56 

28492 

213 

28495 142 




Questo modulo è il nocciolo del valutatorc di espressioni, dal momento che ha il 
compito di estrarre i valori di numeri o etichette, essendo permessi numeri in forma 
decimale, esadecimale ottale (base 8) o binaria (base 2). La subroutine restituisce 
un valore nella variabile H il cui intervallo possibile di valori è 0-65535. 


Commento 

28320: il numero o l’etichetta vengono posti in H$. 


91 








28325: se il primo carattere incontrato è una parentesi aperta ‘(’ viene richiamata la 
routine per ottenere il numero concreto. 


28335: all’ingresso nella routine alla linea 28150, la variabile T viene posta uguale 
a meno uno. Se resta inalterata, non è stato trovato alcun carattere significativo. 
Gli altri valori di T possono indicare uno spazio, due punti, punto e virgola, paren¬ 
tesi chiusa o punto. Se qualcuno di questi è associato ad una HS di lunghezza zero 
allora nell’istruzione non c’è un numero o un’etichetta ed il programma ritorna dal¬ 
la subroutine. 

I ' 

28340: se non è presente alcuno dei delimitatori cercati nella linea precedente, si 
suppone che il numero sia preceduto da ‘$’, “%’ o *&’, indicanti esadecimale, ottale 
o binario e l’esecuzione passa alla routine che estrae da essi un numero decimale. 


28350: se il primo carattere è una cifra, viene preso il valore (VAL) di H$ — perciò 
le variabili non devono iniziare con un numero, dal momento che il valore del nu¬ 
mero verrebbe prelevato e il resto del nome della variabile ignorato. 


28360-28380: se il primo carattere non è una cifra allora si suppone che quanto è 
stato prelevato sia un’etichetta e si passa alla routine in linea 28250 per determinar¬ 
ne il valore. 


28390-28490: il puntatore rappresentato da T ha ora passato un carattere che a 
questo punto si presume indichi una differente base numerica. Si verifica quest’ipo¬ 
tesi. Se viene specificata una base differente, la variabile BASE viene modificata 
per tenerne conto e viene richiamata la routine del monitor che converte numeri 
non decimali in decimali. Se il carattere indicato da T2 non è un segnalatore di 
scambio di base allora esso non è valido e viene segnalato l’errore ‘label is not al- 
phanumeric’ (etichetta non alfanumerica). Se è stata specificata una base diversa 
ma la rappresentazione è scorretta (es. il numero binario 101012) verrà segnalato 
un errore di tipo ‘incorrect number base’ (base non corretta) al ritorno dalla routine nella 
linea 11950. 


28492: il puntatore principale, PTR, che indica il carattere successivo al termine 
dell’operatore corrente, viene decrementato di uno in modo da poter rieseguire la 
procedura sul resto della linea. 
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MODULO 4.22 


oP$m REmmmMmmmmmmmmm-mmm 

2g;*=;01 REM EVfìLUflTE TERM WITH * OR / 

%#m. 

2051 # GOSUB 28380 : TERM = H 

20520 IF PTR>LEN< IN*) THEN RETURN 

28530 IF T“42 THEN GOSUB 28300 ■ TERM * 

tHT<TERM#H) : GOTO 28520 

28550 IF TO47 THEN RETURN 

28560 GOSUB 28300 

28570 IF H-0 TI-IEH TERM = 0 ■ EH = .1.5 : G 

nfo 28080 

28580 TERM = INT<TERM/H> 

20590 GOTO 28520 


Uno dei problemi di valutazione delle espressioni è costituito dalla precedenza, 
cioè dal determinare quale parte dell’espressione A B/C+D/E F deve venir valuta¬ 
ta per prima. Il valutatore di espressioni può trattare la precedenza fra ‘ ’ e 

‘7, ma non quella imposta dall’uso delle parentesi. Le parentesi renderebbero inol¬ 
tre più difficile distinguere il tipo di operando. Questo particolare modulo tratta le 
due operazioni a precedenza più alta, moltiplicazione e divisione. 


Commento 

28510: viene prelevato un valore usando il modulo precedente e lo si memorizza 
nella variabile TERM. 


28530: se il carattere puntato da T è un segno di moltiplicazione, viene prelevato il 
valore immediatamente seguente e moltiplicato per TERM. 

28550-28580: se il carattere indicato da T è una cioè un segno di divisione, si e- 
segue un test per controllare che il divisore non sia zero; se lo è viene segnalata ‘di- 
vision by zero’ (divisione per zero). TERM viene ora diviso per il valore appena ot 
tenuto in H. 


TAVOLA DI CONTROLLO 


28500 

123 

28501 

20 

28502 

123 

28510 

150 

28520 

150 

28530 

162 

28550 

67 

28560 

170 

28570 

152 

28580 

93 

28590 

170 
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MODULO 4.23 


286@ 0 R E M **: * * ** **********:* *: * ****** $ * * * * 

28601 REM EVRLURTE EXPRESSIQN 

28602 REM****************************** 

28603 ERR “ FALSE 

28610 SOSUE 28300 : RESULT = TERM 
28620 IFT=-10R T=32 OR T=38 OR T=59 OR T 
=41 OR T=46 OR PTR>LEN( IN$> THEN RETURN 
28630 IF T=43 THEN GOSUB 28300 : RESULT 
= I NT < RESULT+TERM "> '■ GOTO 28620 
28640 IF T=43 THEN GOSUB 28300 : RESULT 
= I NT< RESULT-TERM '■< ■ GOTO 28620 
28630 RESULT = 0 : EN = 4 : GOTO 28000 


Questo modulo valuta gli operatori, a precedenza inferiore, di addizione e sottra¬ 
zione. 


Commento 

28610: questo modulo non chiama direttamente il modulo principale alla linea 
28300, ma il modulo precedente. Questo assicura che vengano esaminati i valori 
prima di essere restituiti per determinare se debbano prima venir moltiplicati o divi¬ 
si per qualcos’altro. Così se l’espressione da valutare fosse A#B+C, A*B verrebbe 
valutata prima di passare il risultato a questo modulo. 

28620: se si rileva un delimitatore dopo l’operando, non c’è più nulla da valutare. 

28630-28640: se T indica che un segno più o meno segue il valore finora ottenuto, 
viene eseguito il calcolo corrispondente. 

28650: se il carattere indicato da T non è un più o un meno, viene segnalato un er¬ 
rore di ‘invalid operator’ (operatore non lecito) — i segni per o diviso sarebbero stati 
trattati dal modulo precedente., 

TAVOLA DI CONTROLLO 

28600 123 28601 54 28602 123 

28605 70 28610 47 28620 5 

28630 226 28640 229 28650 81 
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Sommario 

Finalmente è finito. Dipende ora dalle vostre energie lo sviluppare ulteriormente 
il programma Mastercode — che è uno dei programmi singoli più estesi mai pubbli¬ 
cati su un libro per un microcomputer. Nel resto del libro esamineremo una serie di 
routine in codice macchina che potrete i nmettere usando l’assembler. Se avete altri 
libri sulla programmazione del 6502, potreste trovarvi utili routine da immettere. 
Non è una cattiva idea provare ccn una o due piccole routine prima di iniziare ad 
estendere il BASIC del 64 col resto del libro, se non altro per familiarizzarsi col 
funzionamento del programma. 

Si raccomanda comunque la solita attenzione: assicuratevi di aver salvato il pro¬ 
gramma prima di tentare qualunqut cosa col linguaggio macchina. Tutti possono 
commettere un errore — e dolersene dopo aver perso il programma! 
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Parte II 























CAPITOLO 5 

L’ESTENSORE DEL BASIC 


Per raggiungere il nostro scopo di realizzare routine in linguaggio macchina per 
estendere il linguaggio BASIC del 64, è in primo luogo necessario capire come la¬ 
vora realmente il BASIC, come un normale comando BASIC viene prelevato ed e- 
laborato senza per ora considerare i comandi che vogliamo aggiungere. 

Consideriamo per primo un comando BASIC molto semplice, come una linea 
del tipo: 1 GOTO 10. Quando premete RETURN per immettere la linea, essa viene 
esaminata dall’interprete BASIC e viene rilevato il fatto che contiene una parola 
chiave BASIC. Questa parola chiave viene ridotta ad un singolo byte nel file di pro¬ 
gramma. Tutte le parole BASIC hanno questi byte, o ‘token’, i cui valori sono com¬ 
presi fra 128 e 202 (più 255 per n). Nel caso del GOTO il token é 137. 

Quando il programma contenente questa linea viene fatto eseguire, l’interprete 
BASIC esamina la linea, tralasciando il numero di linea fino a trovare il token, che 
viene riconosciuto come tale dal momento che è superiore a 128 e non racchiuso 
fra virgolette. Il token indica una posizione in una tabella ed in quella posizione si 
trova l’indirizzo di una routine in linguaggio macchina che eseguirà ii comando e- 
spresso con GOTO 10. L’interprete esegue ora questa routine macchina che per 
prima cosa esamina la linea seguente il token di GOTO per ottenere un numero di 
linea. Avutolo dalla linea BASIC, il resto della routine macchina per questo parti¬ 
colare comando si occupa di trovare la linea cui ci si riferisce e di alterare un certo 
numero di variabili di sistema in modo che l’esecuzione salti a quel punto. Se non si 
trova alcun numero dopo il GOTO viene indicato un errore sintattico. Se viene tro¬ 
vato un numero di linea ma essa non fa parte del programma viene segnalato un er¬ 
rore di 'linea non definita’. Supponendo che tutto sia andato come previsto, il con¬ 
trollo del programma ora torna alla parte di interprete BASIC che ha il compito di 
cercare il prossimo token nel programma. 

Da tutto questo possiamo ricavare un certo numero di azioni necessarie per l’e¬ 
secuzione di una parola chiave BASIC: 

1) l’interprete deve riconoscerla come parola chiave ed essere in grado di ridurla al¬ 
la forma di token; ’ 
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2) l’interprete dev’essere in grado di riconoscere il token una volta che il program¬ 
ma vada in esecuzione; 

3) dev’esserci in memoria una tabella da cui l’interprete possa ricavare l’indirizzo i- 
niziale della routine macchina che esegue il comando; 

4) la routine macchina può dover essere in grado di ricavare ulteriori informazioni 
per il comando (es. il ‘10’ per GOTO 10); 

5) dev’esserci la possibilità di riconoscere e segnalare errori evitando l’esecuzione 
della routine. 

Dopo aver fatto eseguire il programma, c’è un altro requisito imposto dal LIST. 
Non serve cercare di stampare i token invece delle parole chiave. L’interprete deve 
avere anche una tabella che gli permetta di ricavare la parola corrispondente a cia¬ 
scun token, in modo da stamparla nel listing del programma. 

Per poter introdurre nuove parole dobbiamo tener conto di tutto ciò. Una parola 
chiave deve venir posta nell’interprete, dev’essere specificato un token per essa, de¬ 
vono essere fornite le routine corrispondenti e, cosa più importante, l’interprete de¬ 
v’essere forzato a riconoscere ed elaborare l’informazione data. Tutto ciò compor¬ 
terà chiaramente la modifica dell’interprete BASIC, cosa che rappresenta da sè il 
primo problema, dal momento che, come senza dubbio sapete, l’interprete non è in 
una zona di memoria modificabile (RAM), ma nei chip il cui contenuto è fissato al 
momento della fabbricazione. Tutto ciò è vero, ma fortunatamente non è tutta la 
verità. 

Quando accendete il 64, i suoi 64K di memoria sono occupati (grosso modo) da 
8K di memoria per il Kernal (un insieme di routine macchina molto utili e comuni a 
quasi tutte le macchine Commodore), 8K per l’interprete BASIC, 1K per le varia¬ 
bili di sistema (locazioni che il 64 usa per memorizzare valori ed indirizzi importan¬ 
ti per le sue operazioni), 4K di RAM che non può essere usata dal BASIC e 4K per 
gestire altri dispositivi come il chip VIC, dischi, nastri, stampanti ecc. Comunque è 
possibile passare alcune sezioni di questa memoria al controllo dell’utente (RAM) 
— di fatto sono disponibili 64K di memoria volendo escludere ogni altra cosa, cioè 
il BASIC, le comunicazioni con l’esterno ecc. 


L’interprete BASIC sembra occupare la memoria dalla posizione 40960 in avan¬ 
ti. Di fatto il 64 fa credere alla CPU che il chip separato dall’interprete BASIC oc¬ 
cupi quella posizione. I veri 8K di RAM in questa zona sono totalmente inutilizza¬ 
ti, per il semplice motivo che il chip 6502/6510 può vedere solo 64K di memoria al¬ 
la volta, cosi se deve vedere l’interprete BASIC non vedrà gli 8K di memoria utente 
corrispondenti. L’importanza di questo per noi è che ci sono 8K inutilizzati, esatta- 
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mente lo spazio per contenere l’interprete BASIC se dovesse risiedere su RAM in¬ 
vece che su ROM ed esattamente nel punto in cui la CPU si aspetterebbe di trovare 
l’interprete BASIC. 

Il nostro primo passo nelPalterare l’interprete BASIC è perciò di ricopiare il con¬ 
tenuto dell’interprete BASIC in quell’area. Questo ha i suoi svantaggi — ora l’inter¬ 
prete può venir alterato (erroneamente) in modo casuale, cosa che non potrebbe ac¬ 
cadere se fosse tenuto in ROM. Ma può anche essere modificato positivamente se 
sappiamo quello che facciamo! 

Qui sotto è presentato un breve programma che pone tre routine macchina in 
memoria. L’effetto di queste è quello di spostare l’interprete BASIC in RAM. Più 
tardi verranno eseguite brevi aggiunte per permetterci di aggiungere nuove parole 
chiave e fare gli altri necessari cambiamenti. Per il momento basterà spostare l’in¬ 
terprete. 


BASIC Extender - Listing I 


0 REM12343678901234567890123456789012343 
6789012345678901234567890123 
100 REM BRSIC EXTENDER ROUTINE 
110 REM MOVE BRSIC ROM INTO RRM RT $R000 
- $BFFF 

120-PRTR 165,1,41,254;133,1,96,168,255,2 
08,32,32,8,190,1,1,32,6,8,138,153,1,1 
130 BRTfl 200,208,240,165,1,9,1,133,1,96, 
32,6,8,24,162,235,232,160,253,200,185 
135 DRTR 75,8,133,20,185,151,8,48,01,96, 
133,21,185,227,8,129,20,144,235 

139 DRTR 0 

140 RD = 2054 

150 RERD R : IF RO0 THEN POKE RD, R : RD 
= RD+1 •’ GOTO 150 
160 REM DO RCTIJRL MOVE 
163 POKE 2068,0 : POKE 2075,0 
170 FOR X = 160 TO 191 
190 POKE 2069,X : POKE 2076,X 
200 SVS 2061 
210 NEXT 

220 POKE 2068,1 : POKE 2075,1 
230 SVS 2054 
300 END 
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Commento 


0-150: lo scopo delle frasi REM é quello di fornire un’area di memoria pulita. In 
quest’area, che inizia alla locazione 2054 (se fate una PEEK di 2053 vi troverete il 
token del primo REM, cioè 143), la linea 150 immette con l’istruzione POKE i va¬ 
lori contenuti nelle frasi DATA. Le frasi DATA rappresentano, come avrete sen¬ 
z’altro capito, istruzioni macchina. 


Routine in linguaggio macchina 

add. data scorce code 

0 10 PRT 


0 


20 

0 


30 

806 

R501. 

50 

808 

29FE 

60 

80 R 

8501 

70 

80C 

60 

80 

80Ii 

R0FF 

90 

80F 

C8 

100 

810 

202008 

120 

813 

BE0101 

130 

816 

200608 

140 

819 

8R 

150 

81R 

990101 

160 

81D 

C8 

170 

81E 

D0F0 

180 

820 

R501 

190 

822 

0901 

200 

824 

8501 

210 

826 

60 

220 


SVM 

0RG 2054 
L.BL000 LDR 1 
RHD #254 
STA 1 
RTS 

LEV #255 
INV 

LBL001 JSR LBL002 
LIJX 257. V 
JSR LBL000 
TXR 

STR 257.V 
IHY 

BNE LBL001 
LBL002 LBR 1 
0RR #1 
STR 1 
RTS 


Commento sulle routine macchina 

Qui sopra è fornito il listing delle routine usate nella forma del Mastercode as¬ 
sembler, per chiarezza. NON IMMETTETE LE ROUTINE USANDO L’AS- 
SEMBLER O LO ROVINERETE. USATE IL PROGRAMMA DATO SOPRA. 

10-30: direttive assembler che mandano l’uscita alla stampante, stampano la tavola 
simboli e fanno iniziare il programma alla locazione 2054 in memoria. 
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50 - 80 : queste istruzioni caricano in accumulatore il contenuto del byte 1 della me¬ 
moria, ne fanno l’AND con 254 (ponendo così a zero il bit zero) e infine memoriz¬ 
zano il risultato nella locazione uno. Questo provoca lo ‘spegnimento’ della ROM e 
fi ‘accensione’ della RAM corrispondente. La routine è auto-consistente. Si sarebbe 
potuto ottenere lo stesso effetto con l’istruzione BASIC POKE 1, PEEK (1) AND 
254, ma questo avrebbe interrotto il funzionamento del sistema dal momento che 
non ci sarebbe più stato un interprete BASIC su cui lavorare. 

90-180: questa routine inizia con un salto alla terza sezione del programma che 
‘accende’ la ROM e ‘spegne’ la RAM. A questo punto del programma la linea 130 
non ha senso; più avanti l’indirizzo da cui verrà caricato il registro X verrà immes¬ 
so tramite una POKE nel codice macchina. L’effetto finale della routine è di carica¬ 
re nel registro X un byte dell’interprete, ‘spegnere’ la ROM, trasferire il contenuto 
di X all’accumulatore e memorizzare questo byte dalla ROM nello stesso indirizzo, 
ma con la RAM ora ‘accesa’. Una volta fatto ciò viene incrementato Y. Quando Y 
raggiunge 255 (cioè sono stati trasferiti 256 byte) l’istruzione BNE non verrà più e- 
seguita e si passerà alla routine seguente. 

190-220: immagine speculare di 50-80, queste linee ‘riaccendono’ la ROM prima di 
restituire il controllo al BASIC. 

Noterete che questo listing non comprende tutto ciò che avete immesso — il re¬ 
sto verrà spiegato più avanti, al momento non viene usato. 

Tornando al programma BASIC in sé: 

165: i nostri program ini in linguaggio macchina richiederanno l’uso di due zeri, vi¬ 
sto che gli indirizzi su cui si baseranno le nostre mosse di 256 byte avranno tutti 
uno zero nel byte basso es. 40960 che è 160, e zero nella rappresentazione a due 
byte. Mettere gli zeri permanentemente nelle frasi REM avrebbe creato grossi pro¬ 
blemi per l’immissione di nuove linee. Incontrando gli zeri all’immissione di nuove 
linee la routine BASIC ‘collegamento di linee’ avrebbe rovinato le frasi REM, cer¬ 
cando di romperle dove fossero presenti gli zeri. Per questo motivo, gli zeri vengo¬ 
no temporaneamente immessi con POKE per gli scopi del linguaggio macchina e 
poi rimpiazzati da uni alla linea 220. 

165-200: i POKE danno alle istruzioni macchina alle linee 130 e 160 del listing in 
assemblatore gli indirizzi di partenza di 32 blocchi da 256 byte (8K in totale) che 
verranno passati dalla ROM alla RAM. Quando l’indirizzo di ciascun blocco è sta¬ 
to immesso via POKE nel programma in linguaggio macchina, il programma viene 
fatto eseguire dalla chiamata SYS alla linea 200, che fa partire la routine macchina 
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situata alla linea 120, del listing in linguaggio assemblatore. Vengono spostati 256 
byte quindi viene immesso l’indirizzo del blocco successivo. 

Se avete battuto il programma e l’avete controllato, salvatelo prima che sia trop¬ 
po tardi. Ora battete SYS 2054 in modo diretto. Se avete commesso un errore qua¬ 
si certamente la macchina si incepperà. Altrimenti sembrerà che non sia successo 
nulla. 

Ora provate questo: 

300 END (RETURN).ancora nulla 

POKE 41118,72 (RETURN).ancora nulla 

LIST (RETURN)....date un’occhiata all’ultima riga. Dovrebbe leggersi 300 HND 
— altrimenti avete fatto un errore e dovete spegnere, riaccendere a far ripartire il 
programma BASIC che avete salvato. Se la procedura ha funzionato, immettendo 
END (RETURN) provocherete un messaggio ‘SYNTAX ERROR’, cosa che non 
accadrà con un comando HND. Ciò che avete fatto è stato alterare la tabella con¬ 
tenente le parole chiave BASIC. Se vole proprio divertirvi, battete RUN/RESTO- 
RE per ‘riaccendere’ la ROM, caricate il monitor ed esaminate la memoria a parti¬ 
re da 41118 (A09E esadecimale) in avanti. Vi troverete le locazioni delle parole 
chiave, ciascuna apparentemente priva dell’ultimo carattere. Prendete nota (o fate 
stampare) delle locazioni poi ricaricate questo programma e rilocate l’interprete. Se 
non modificate il carattere finale o la lunghezza di una parola chiave, potete far leg¬ 
gere tutto ciò che volete. Provate e poi listate il programma o fatelo stampare. Fun¬ 
zionerà ancora, ma il suo strano aspetto proverà che avete iniziato a dimostrare il 
vostro potere sul BASIC. 















CAPITOLO 6 


l 

i 

BASIC E CODICE MACCHINA 


Listing in linguaggio assembler 


10 

PRT 

20 

30 

ORO $0800 

SVM 

40 

t ~ —— — — 

50 

KEVWRB 

60 

NEW FUNCTION KEVWORDS 

70 

DEEK 

80 

BVT 63.69.69.75+128 

90 

; VPOS 

100 

BVT 89.30.79.83+128 

110 

; VRRPTE 

120 

BVT 86.65.82.80.84.82+128 

130 

i — — ----•-— — — — —-— 

140 

NEW RCTI0N KEVWORDS 

150 

; IfOKE 

160 

BVT 68.79.75.69+128 

170 

; RKILL 

130 

BVT 82.75.73.76.76+128 

190 

200 

: BELETE 

BVT 63.69. 7669.84.69+128 

210 

220 

; MOVE 

BVT 77.79.86.69+128 

230 

FRST 

249 

BVT 70.65.83.84+128 

250 

; slow 

260 

BVT 33.76.79.87+128 

270 

; PLOT 
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280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

TRBLE CHE. 
430 


BVT 80.76.79.84+128 
UMBERTI 

BVT 85.78.68.69.65.68+128 
; SUBEX 

BVT 83.85.66.69.88+128 
BLORB 

BVT 66.76.79.65.68+128 
; BVERIFV 

BVT 66.86.69.82.73.70.89+128 
, BSRVE 

BVT 66.83.65.86.69+128 
; FILI.. 

BVT 70.73.76.76+128 
WEB 0 

THI3 IS THE END DF KEYWORD 


440 ; NEW ROTIOH VECTOR 

450 RCTVEC 

460 WEB $8830 

470 MED $8830 


480 

490 

500 

510 

520 

530 

540 

550 

56Ò 

570 

580 

599 


WEB $8830 
WEB $R830 
WEB $8830 
WEB $R830 
WEB $0830 
WEB $8830 
WEB $R830 
WEB $8838 
WEB $8830 
WEB $0830 
WEB $8830 


600 

; NORMOL 

IS THE NORMOL NUMBER 

OF BASIC 

KEVWOEDS 


610 

NORMOL = 

75 

620 

; NEWOCT 

IS THE NUMBER OF NEW 

OCTION KF 

:vworbs 


630 

NEWOCT ~ 

13 

640 

; NEWFUN 

IS THE NUMBER OF NEW 

FUHCTION 

KEVWOEDS 


650 

NEWFUN = 


660 

; USE BV 

POKEING R7E1 WITH 'J 


MP EXECUTE' 
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670 

680 

690 

EXECUT JSR $73 

JSR DOEX 

JMP $fi7RE 

700 

710 

720 

730 

740 

750 

760 

770 

QRDS 

780 

790 

RPI0 

810 

820 

830 

840 

850 

860 

870 

880 

890 

DOEX BEO. LABEL 

SBC #$80 

BCC DOLET 

CMP #HQRMRL+NEWFUN+l 

BCC RETURN 

CMP #N0RMRL+NEWFUN+NEWRCT+1 

BCS RETURN 

EXECUTE THE NEH RCTION KEVW 

SBC #NORMRL.+HEUFUN 

RSL fl 

TRV 

LDR RCTVEC+l.V 

F’Hfi 

LDR RCTVEC.V 

PHR 

JMP $73 

LABEL RTS 

DOLET JMP $R9R5 

RETURN JMP $R7F3 

900 

PQKÉ 774 J 
910 

920 

930 

940 

850 

960 

970 

980 

990 

1000 

1010 

1020 

1030 

1040 

1050 

1 060 

1070 

1080 

1.090 

; PRINT TOKEN ROUTINE TO USE 
% 775 MITH PRTTOK ADDRESS 

PRTTOK JSR PUTREG 

CMP #NORMRL+129 

BCC PRTNQR 

; PRINT THE NEW TOKENS 

LDR RSRVE 

SBC #NORMRL+1 

STA RSRVE 

LDR #KEVWRD/256 

LDX #KEVWRD-KEVWRD7256#256 

JMP LBL000 

; PRINT NORMRL TOKENS 

PRTNOR LDR #$R0 

LDX #$9E 

LBL000 STA $R732 

STX $R731 

STA $A73R 

STX $A739 

JSR GETREG 

JMP $R71A 

1100 

;- 


107 













1110 

CRUNCH TOKÉTHS routine 

EXTR 

R CODE 

1120 

USE BV ALTERING $R684 

TO y 

JMP CRUNCH 

1130 

CRUNCH JSR PUTREG 


1140 

LDfl $fl5FC 


1150 

CMP #ffl0 


1160 

BNE STAND 


1170 

LDR #$C0 


1180 

L.DX #$00 


1190 

JSR TOKSTR 


12M0 

JSR GETREG 


1210 

LDV #0 


1220 

JMP $R5B8 


1230 

STAND LDR #$A8 


1240 

LDX #$9E 


1250 

JSR TOKSTR 


1260 

JSR GETREG 


1276 

LDR $200.X 


1230 

JMP $14607 


1 9QO 




1300 

GETREG LDfl PSflVE 

1310 

PHR 

1320 

LDfl ASRVE 

1330 

LDX XSAVE 

1340 

LDV VSflVE 

1350 

PLP 

1360 

RTS 

1370 

; ---- — - —-«--— 

1386 

PUTREG PHP 

1390 

STA ASRVE 

1400 

STX XSAVE 

1410 

STV VSflVE 

1420 

PLR 

1430 

STA PSflVE 

1440 

L.DA ASRVE 

1450 

1460 

RTS 

1470 

TOKSTR STA $R5BE 

1480 

CLD 

1490 

STX fflSBD 
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1500 

STA $8601 

1510 

STX $8600 

1520 

DEX 

1530 

CPX tt$FF 

1540 

BNE LBL003 

1550 

SEC 

1560 

SBC 41 

1570 

LBL003 ST8 $R5F( 

1580 

STK $85FB 

1590 

ETS 

11* kj Kf 

1610 

‘ 

F'SR'v'E 

1620 

HSflVE = PSflVE+1 

1630 

XSflVE « RSRVE+1 

1640 

VSflVE = XS8VE+1 


END 


Nota: questo listing è riportato in forma completamente assemblata al termi¬ 
ne del commento ma è presentato qui in forma non assemblata per amore di chia 
rezza. 


Ora sappiamo che siamo in grado di alterare il BASIC. Comunque rendere stra¬ 
ne le parole chiave non è il nostro scopo. Vogliamo invece estendere il BASIC e per 
far ciò dobbiamo eseguire delle modifiche un po’ più consistenti che qualche POKE 
qua e là. Passiamo perciò ad esaminare il più esteso programma macchina che do¬ 
vrete trascrivere nel corso di questo libro; sfortunatamente dev’essere fatto a que¬ 
sto punto o nulla del resto funzionerebbe. 

Ricorderete che nello scorso capitolo abbiamo detto che per elaborare un co¬ 
mando l’interprete BASIC dev’essere in grado di riconoscere il token generato du¬ 
rante il listing del programma ed anche di sapere dov’è situata la routine macchina 
che esegue l’azione che la parola chiave specifica. Questo viene fatto con l’aiuto di 
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una tabella situata in memoria alle locazioni da A09E a A19D (41118-41373). 
Quando l’interprete BASIC incontra una parola chiave in ingresso, esamina la ta¬ 
bella fino a trovare una corrispondenza, altrimenti viene segnalato un errore sintat¬ 
tico. Se la parola chiave si trova nella tabella, la sua posizione (in tabella, non in 
memoria — ad es. la parola chiave n. 0 è END) sommata a 128 dà il token corretto 
per essa, cosi il token per END è 128. Quando un programma viene eseguito il va¬ 
lore del token (—128) viene moltiplicato per due e quindi interpretato come posizio¬ 
ne in un’altra tabella; la tabella dei vettori. Questa tabella dice all’interprete BASIC 
dove trovare la routine macchina per quella particolare istruzione. 


I problemi che chiunque voglia estendere il BASIC si trova ad affrontare sono 
perciò: 

1) ricerca di spazio per le nuove parole chiave nella tabella delle parole chiave; 

2) estensione della tabella dei vettori per indicare gli indirizzi delle nuove routine 
macchina; 

3) ultimo, ma non meno importante: immissione delle nuove routine. 


Questi problemi sarebbero quasi banali se ci fosse spazio nelle tabelle delle paro¬ 
le chiave e dei vettori. In effetti, la tabella delle parole chiave viene esaminata sotto 
il controllo di un singolo registro della CPU (il registro Y). Il registro è costituito da 
un solo byte, quindi può trattare solo un’area di 256 byte di lunghezza. Le parole 
chiave esistenti nel BASIC del 64 riempiono esattamente questi 256 byte (compre¬ 
so un misterioso comando ‘GO’ non menzionato nel manuale che permette di sepa¬ 
rare GO e TO trattandoli ugualmente come GOTO). In altre parole non si possono 
fare aggiunte alla tabella. Inoltre se anche si potesse non c’è spazio nella tabella dei 
vettori per gli indirizzi di nuove routine. In memoria c’è spazio a volontà per le nuo¬ 
ve routine, ma come fare a far riconoscere all’interprete le parole chiave corrispon¬ 
denti? 

Qual è la risposta? Come in altre occasioni, quando avete a disposizione un pro¬ 
gramma che non volete modificare troppo, in questo caso l’interprete BASIC, la ri¬ 
sposta è che è necessario barare. Quando riduce una parola chiave ad un token, 
l’interprete esamina la tabella delle parole chiave finché non trova uno zero (l’ulti¬ 
mo byte della tabella). Se si raggiunge questo punto, la parola chiave non è stata 
trovata e verrà indicato un errore di sintassi. Il nostro metodo per estendere la ta¬ 
bella delle parole chiave è sostituire l’istruzione macchina seguente alla rilevazione 
dello zero con un salto ad una nuova subroutine che inizia nuovamente la ricerca 
ad un nuovo indirizzo, fornendo così una tabella vuota di 256 byte in più in cui me- 






















inorizzare le parole chiave. Questo trucchetto risolve il problema della ‘riduzione’ 
delle parole chiave, resta solo da convincere l’interprete a riconoscere i tokens ge¬ 
nerati alla scoperta di una parola chiave nella nuova tabella. 

L’esecuzione dei singoli comandi BASIC è controllata da una sezione dell’inter¬ 
prete il cui scopo è di consultare la tabella dei vettori e, sulla base delle informazio¬ 
ni contenutevi, di richiamare la subroutine appropriata per il particolare token. La 
routine RUN, che controlla l’intera esecuzione del programma, richiama questa 
routine di ‘comando singolo’ ogni volta che viene trovato un token nel programma. 
Fortunatamente per noi, la routine RUN non ha l’indirizzo della routine ‘comando 
singolo’ incorporato, ma lo deve leggere da una locazione di memoria RAM (308- 
309 esadecimale). 

Per assicurarci che i nuovi token vengano letti ed elaborati alterneremo l’indiriz¬ 
zo indicato dagli esadecimali 308-309, in modo che indichi una nuova routine di e- 
secuzione di comando singolo progettata da noi. La nuova routine prima controlla 
se il token incontrato è quello di una delle nostre nuove parole chiave (che possono 
essere riconosciute dal fatto che il loro valore è maggiore o uguale a CC 
esadecimale-204 decimale). Se non si tratta di uno dei nuovi comandi, l’esecuzione 
passa alla routine normale di comando singolo. Se invece è uno dei nuovi comandi, 
allora la nostra routine prende il controllo, indicando un indirizzo completamente 
nuovo per la tabella dei vettori. In questo modo possiamo aggiungere una nuova 
tabella dei vettori all’interprete oltre che una nuova tabella delle parole chiave. 

Se siete riusciti a seguire abbastanza questa spiegazione, siete pronti per prose¬ 
guire e dare un’occhiata alla routine macchina centrale, essenziale per i cambia¬ 
menti da fare. 


Modulo 10-30: queste tre linee rappresentano istruzioni per l’assembler che 
dovreste riconoscere dal commento alla sezione assembler de! programma Master 
code. PRT indica che il listing dovrà essere mandato alla stampante (dal comando 
PRT in poi), ORG dice all’assembler di iniziare a memorizzare il programma a 
partire dalla linea C000 e SYM assicura che venga stampata la tavola simboli al¬ 
la fine del listing. Questa routine macchina e le seguenti occuperanno l’area libera 
di RAM fra C000 e CFFF(49152-53247). Quest’area di memoria non è a disposi¬ 
zione del BASIC ed è cosi una posizione ideale per memorizzare codice macchina. 


Modulo 40-120: questa sezione del programma estende la tabella delle parole 
chiave con tre nuove parole, DEEK, YPOS e VARPTR — spiegheremo poi di cosa 
si tratta. A questo punto basta che sia chiara la differenza fra funzioni ed azioni in 
BASIC. Una funzione è un’operazione matematica che deve ricorrere dopo un *=’ 
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o un IF, ad esempio, a differenza di un’azione, che può trovarsi isolata e non può 
far parte di un’espressione matematica. La ragione per cui è importante distinguere 
le due cose è che azioni e funzioni vengono trattate diversamente durante l’esecu¬ 
zione di un programma. Ad esempio viene chiamata una routine speciale ogni volta 
che si trova un segno di uguale. A causa di questo trattamento speciale, l’interprete 
tiene conto della posizione delle parole chiave per funzioni nella tabella delle parole 
chiave ricordando dove iniziano e dove terminano. Le parole al di fuori di questo 
intervallo vengono trattate come azioni e viene segnalato un errore di sintassi se si 
incontrano ail’interno di un’espressione, come ad esempio LET A = POKE 
123,123. Nella tabella normale delle parole chiave, quelle corrispondenti a funzioni 
si trovano tutte alla fine, così la posizione più semplice in cui situare nuove parole 
chiave funzioni è l’inizio della nuova tabella, visto che ciò comporterà solo la mo¬ 
difica del puntatore alla fine delle parole chiave per le funzioni (in questo caso 
dovrà essere incrementato di tre). 

In questo modulo le sole linee operative, cioè quelle che verranno assemblate in 
memoria, sono quelle con le istruzioni BYT. Esse definiscono i caratteri delle nuove 
parole chiave in ASCII con l’aggiunta di 128 al valore dell’ultimo carattere per se¬ 
gnalare il termine della parola (il bit 7 dell’ultimo carattere sarà perciò uguale ad 1). 

Modulo 130-420: in questo modulo sono introdotte le nuove parole chiave per le 
azioni con cui estenderemo il BASIC. Il formato della tabella è esattamente lo stes¬ 
so spiegato nel modulo precedente con l’eccezione che la lista delle parole chiave 
termina con un’istruzione che assicura che la tabella termini con uno zero. Questo 
permetterà all’interprete di rilevare il termine della tabella. 

Modulo 430-580: questa è la nuova tabella dei vettori. A questo momento non 
avete ancora introdotto alcuna delle routine che permettono alle nuove parole chia¬ 
ve di fare alcunché. Immettendo questo programma assicurate soltanto che le paro¬ 
le nuove possano essere usate nei programmi BASIC, trasformate in token e venir 
rilistate. Se vengono incontrate in esecuzione dopo che sia stata immessa questa se¬ 
zione di programma macchina, tutto ciò che succederà è che il programma termi¬ 
nerà, dal momento che i loro vettori puntano inizialmente alla routine END del 
BASIC normale. Notate che non vengono inclusi vettori per le parole corrispon¬ 
denti a funzioni: esse verranno trattate da una routine separata di valutazione delle 
espressioni che esporremo più avanti. 

Modulo 590-650: questo modulo predispone tre etichette con il numero delle pa¬ 
role chiave BASIC normali, il numero delle nuove parole chiave per azioni ed il nu¬ 
mero delle nuove parole chiave per funzioni. Queste verranno usate per rendere più 
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le 


leggibile il resto di questa sezione di codice e rendere più facili eventuali modifiche 
s e vorrete aggiungere vostre nuove parole chiave. 

Modulo 660 88p: questo modulo si occupa dell’esecuzione delle nuove parole 
chiave BASIC. 


Commento 

660-690: ricorderete che abbiamo già spiegato che, al fine di assicurarci che i nostri 
token non vengano rifiutati dall’interprete, modifichiamo l’indirizzo (in 308-309 e- 
sadecimali) che la routine RUN usa per chiamare la routine di esecuzione di un co¬ 
mando sìngolo (SCER). Di fatto le locazioni 308-309 rinviano l’esecuzione del prò 
gramma ad un comando di salto nella routine RUN ed è questo salto che chiama la 
routine SCER. Il riferimento agli esadecimali 308-309, che si trovano naturalmente 
in RAM, è un’intelligente previsione della Commodore per permettere ai pogram- 
matori di fare proprio quello che stiamo facendo noi, cioè di sostituire la SCER 
standard. Queste tre linee sostituiscono tre linee sottratte alla routine RUN, inclusa 
una chiamata alla routine che preleva il prossimo carattere di una linea, un salto al¬ 
la (nostra) SCER ed un salto indietro all’inizio della routine RUN. 

700-760: queste linee determinano se si è raggiunto il termine di una linea (cioè se è 
stato rilevato uno zero nel salto a $73), controllano il valore di una variabile (mino¬ 
re di $80) ed infine esaminano il valore di quello che, a questo punto, deve essere un 
token per vedere se rientra nell’intervallo della nuova tabella di parole chiave delle 
azioni. In caso negativo, l’esecuzione passa al normale interprete. 

770-850: il valore della fine della nuova tabella delle funzioni (cioè il numero delle 
parole chiave originali più il numero delle nuove funzioni) viene sottratto dal valore 
del token, ottenendone così la posizione nella nuova tabella delle parole chiave per 
azioni. Viene usato il registro Y per ricavare il corrispondente vettore di azione nel¬ 
la tabella dei vettori. L’indirizzo viene inserito in cima alla pila. Ora facciamo un 
salto alla routine alla posizione $73, che preleva il carattere seguente nella linea 
(questo perché tutte le routine dell’interprete lavorano con la convenzione che il ca¬ 
rattere sia stato posto in accumulatore anche se non ne hanno bisogno effettiva¬ 
mente per le loro operazioni). Alla fine della subroutine chiamata in $73 c’è un’i¬ 
struzione RTS che preleva il vettore azione dalla pila interpretandolo come indiriz¬ 
zo di ritorno. Notate che il ritorno effettivo va fatto all’indirizzo successivo a quello 
presente in pila per evitare di tornare alla istruzione che ha appena chiamato la 
subroutine. Ciò significa che tutti i vettori azione della tabella puntano al byte pre 
cedente la routine che vogliono richiamare. 




860-880: queste linee etichettate fanno varie chiamate se i test durante il program¬ 
ma sono ‘falliti’ — vengono richiamate dalle quattro istruzioni di BRANCH prece¬ 
denti. 

Modulo 890-1090: questo ripristina le parole a partire dai token quando il pro¬ 
gramma viene listato e sarà chiamato dalla normale routine di LIST dopo alcune 
modifiche. j 


Commento 

910 930: dal momento che questa sezione viene richiamata nel mezzo dell’esecu¬ 
zione di un’altra routine (LIST), vengono prima salvati i registri in modo che pos¬ 
sano essere ripristinati al ritorno. Il token prelevato nell’accumulatore da LIST vie¬ 
ne confrontato col massimo valore ammissibile per un normale token. Se ha valore 
minore, viene eseguita la normale routine di ricostruzione della parola chiave. 

950-1000: il valore del token in accumulatore viene modificato sottraendo il nume¬ 
ro dei normali token. L’accumulatore indicherà ora una posizione nella nuova ta¬ 
bella e questo valore viene memorizzato in ASAVE. I registri A ed X vengono cari¬ 
cati con l’indirizzo iniziale della nuova tabella delle parole chiave e quest’indirizzo 
viene poi posto nella normale routine di traduzione dei token da una chiamata alla 
LBLO00. 

1010-1090: se dev’essere stampata una parola chiave normale, l’indirizzo della ta¬ 
bella normale delle parole chiave viene inserito nella routine di traduzione dei to- 
kens, che può aver lavorato in precedenza sulla nuova tabella. 

Modulo 1100-1280: abbiamo già detto che dopo aver rilevato la fine della tabel¬ 
la normale delle parole chiave, la routine di creazione dei token viene fatta passare 
ad una nuova nostra routine, che è la presente. Lo scopo del modulo è di creare i 
nuovi token. 


Commento 

1140-1160 :$A5FC contiene il byte alto dell’indirizzo della tabella corrente delle 
parole chiave, che può essere quella normale o la nostra. Se il valore è $A0 allora è 
stata letta la fine della tabella normale e viene eseguita la sezione successiva. 
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1170 - 1220 : l’indirizzo della nuoVa tabella delle parole chiave viene posto nella rou¬ 
tine di creazione dei token (JSR TOKSTR) e la routine viene rieseguita, caricando 
0 nel registro Y per assicurare che cominci all’inizio della nuova tabella. Al termine 
della seconda ricerca, CRUNCH (linea 1130) verrà richiamata ma questa volta 
sarà eseguita l’istruzione BNE STAND. 


1230-1280: l’indirizzo della tabella normale delle parole chiave viene reinserito nel¬ 
la routine di creazione dei token, i registri vengono ripristinati (JSR GETREG) e 
quindi l’istruzione che era stata cancellata per chiamare questa routine viene riscrit¬ 
ta. Infine l’esecuzione passa alla routine di creazione dei token che completa l’ope¬ 
ra. 


Modulo 1290-1360: questo modulo ripristina i valori dei registri che sono stati 
salvati dal modulo seguente. L’unica complicazione é data dal ripristino del registro 
di stato del processore, che non può essere caricato direttamente dalla memoria. 
L’operazione è realizzata portando il valore in accumulatore, mettendolo in pila e 
infine reimmettendolo nel registro del processore. 

Modulo 1370-1450: l’opposto del modulo precedente, vengono salvati i contenu¬ 
ti dei registri. Notate ancora l’uso della pila e dell’accumulatore per salvare il conte¬ 
nuto del registro di stato. 

Modulo 1460-1590: l’indirizzo della tabella delle parole chiave è tenuto in tre di¬ 
stinte locazioni nella routine di creazione dei token. Questo modulo piazza l’indiriz¬ 
zo richiesto (tabella nuova o normale) in quelle locazioni con la leggera complica¬ 
zione che la locazione finale richiede il byte precedente la tabella, cosi si sottrae 1 
dall’indirizzo nelle linee 1520-1560 prima di memorizzarlo. 

Modulo 1600-1640: queste linee non interesseranno la memoria quando il pro¬ 
gramma sarà assemblato. Esse dicono all’accumulatore di inizializzare le variabili 
specificate dal programma per l’uso. 


Sommario 

A questo punto vi dispiacerà sentire che se avete immesso il programma nell’as- 
sembler e l’avete assemblato tutto ciò che potete fare é salvarlo per qualche tempo. 
Prima che i cambiamenti introdotti da questo codice possano avere buon esito, si 




devono fare un paio di modifiche al BASIC extender presentato sopra. Qui in bas¬ 
so c’è il listing del codice come dovrebbe risultare una volta assemblato. Controlla¬ 
te il vostro programma con questo, paragonando valori dei BYTES e indirizzi: 
spesso i programmi in linguaggio macchina che non funzionano sono fonte di ispi¬ 
razione. 


CODICE MACCHINA: Listato completamente assemblato 


3 . del. 

data 

sou.rce code 

0 

0 

C00Q 

C000 


10 

20 

30 

40 

F'RT 

ORO $17000 

SYM 



(1000 


50 1 

KEYWRD 

C000 


60 

; NEH FUHCTI0H KEYWORD 

C000 


70 

; DEEK 

C000 

444545 

80 : 

BYT 68.69.69.75+128 

C004 


90 

j YFQS 

C004 

59504F 

100 

BYT 89.80.79.83+128 

0008 


110 

.; VRRF'TR 

C008 

564152 

120 

BYT 86.65.82.80.84.82 

+ 128 
C00E 


130 

> " * 

C00E 


140 

I NEW FICTION KEVWORBS 

C00E 


150 

; DOKE 

C0BE 

444F4B 

160 

BYT 68.79.75.69+128 

C0 ! 2 


178 

RKILL 

C012 

524B49 

180 

BYT 82.75.73.76.76+12 

8 




C017 


190 

.; DELETE 

C017 

44454C 

200 

BYT 68.69.76.69.84.69 

+ 128 
C01D 


210 

; MOVE 

C01B 

4D4F56 

220 

BYT 77.79.86.69+128 

C021 


230 

; FfiST 
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/ 


ne 21 

464153 

240 

BYT 70.65.83.84+128 

r:@25 


250 

; SLQW 

C025 

534C4F 

268 

BYT 83.76.79.87+128 

0029 


270 

; PLOT 

0029 

504C4F 

280 

BYT 80.76.79.84+128 

Ó.02D 


290 

: UNDEAD 

C02D 

554E44 

300 

BYT 85.78.68.69.65.68 

+ 128 




0033 


319 

; SUBEX 

0033 

535542 

320 

BYT 83.85.66.69.88+12 

8 

0038 


330 

; BlOAD 

0038 

424C4F 

340 

BYT 66.76.79.65.68+12 

8 




O03D 


350 

; BVERIFV 

C03D 

425645 

360 

BYT 66.86.69.82.73.70 

.89+128 



0044 


370 

; BSRVE 

0044 

425341 

380 

BYT 66.83.65.86.69+12 

8 

0049 


390 

; FILL. 

0049 

46494C 

400 

BYT 70.73.76.76+128 

C04D 

0000 

410 

WRD 0 

C04F 


420 

THIS IS THE END OF 


KEYWORD TfìBLE CHR. 


C04F 


430 

,i "™ ■“ 


004F 


440 

NEW ACTION 

004F 


450 

HCT'v 

'EC 

C04F 

3088 

460 

WRD 

$8830 

0051 

3888 

470 

WRD 

$8830 

0053 

3088 

480 

WRD 

$8830 

0055 

3088 

490 

WRD 

$8830 

0057 

3088 

500 

WRD 

$8830 

0059 

3088 

510 

WRD 

$8830 

C05B 

3088 

520 

WRD 

$8830 

C05D 

3088 

530 

WRD 

$8830 

C05F 

3088 

540 

WRD 

$8830 

0061 

3088 

550 

WRD 

$8830 

0063 

3088 

560 

WRD 

$8830 

0065 

3088 

570 

WRD 

$8830 

0067 

0069 

3088 

580 

590 

WRD 

$8830 




0069 


600 

; NORMflL IS 


L NUMBER OF BASIC KEYWORD?: 
0069 610 NORMAL = 
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C069 


620 

; NEWRCT IS THE NOMEE 

R OF 

NEW RCTION KEVWORDS 

C069 


630 

NEWRCT = 13 

C069 


640 

NEWFUN IS THE NOMEE 

R OF 

NEW FUNCTION 1 

CEYWORDS 

C069 


650 

NEWFUN = 3 

C069 


660 

USE BV POKE INO R7E1 

WITH 

■" JMF' EXECUTE 


C069 

207300 

670 

EXECUT JSR $73 

C06C 

2072C0 

68 Ó 

JSR DOEX 

C06F 

4CRER7 

690 

JMP $R7RE 

C072 

F01B 

700 

DOEX BEQ LRBEL 

C074 

E980 

710 

SBC #$80 

C076 

9018 

720 

BCC DOLET 

C078 

C94F 

730 

CMP «NORMRL+NEWFUN+1 

C07R 

9017 

740 

BCC RETURN 

C07C 

C95C 

750 

CMP #NORMRL+NEWFUN+NE 

WflCT+1 



C07E 

B013 

760 

BCS RETURN 

C080 


770 

; EXECUTE THE NEW RCT 

IUH KEVWORDS 



C080 

E94E 

780 

SBC #N0EMRL+NEWFUH 

C082 

0 fl 

790 

RSL fl 

C083 

R8 

800 

TRV 

C084 

B950C0 

810 

LDfl RCTVEC+1.V 

C087 

48 

820 

PUR 

C088 

BSMFC0 

830 

LDR RCTVEC.V 

C08B 

4y 

840 

PHR 

C08C 

4C7300 

850 

JMP $73 

C08F 

60 

860 

LRBEL RTS 

C090 

4CR5R9 

870 

DOLET JMP $R9R5 

C093 

4CF3R7 

880 

RETURN JMP $R7F3 

C096 


8.90 

; --- — ------ 

C096 


900 

FRI NT TOKEN ROUTINE 

TO IJ 

SE POKE 7 

74 & 

775 WITH PRTTQK RUBRE 

C096 

20FRC0 

910 

PETTOK JSR PUTREG 

C099 

C9CC 

920 

CMP ttHORMRL+129 

C09B 

900F 

930 

BCC PRTHOR 

C09D 


940 

FRI NT THE NEW TOKEN 

C09B 

RD29C1 

950 

LDR RSRVE 

C0R0 

E94C 

960 

SBC WHORMRL+1 

C0R2 

8D29C1 

970 

STR RSRVE 

C0R5 

R9C@ 

980 

LDR #KEVWRD/256 

C0R7 

6*256 

8200 

990 

LDX #KEVWRI)-KEVWRD/25 
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C0fl:3 

cerne 

4CB9C0 

1 000 
1010 

JMP LBL000 x 
; frinì NORmi... Ter 

EH 

cerne 

riyne 

1.020 

PRTNOR LBfì #$88 


C0RE 

829E 

1 030 

LUX tt$9E 


C0B0 

8D32R7 

1 040 

LBL000 STH $8732 


C0B3 

8E31FI7 

1050 

STH $8731 


C0B6 

8D3RR7 

1060 

STR $8738 


C0B9 

8E3987 

1070 

STX $8739 


C0BC 

20EBC0 

1 080 

JSR GETREC 


C0BF 

C0C2 

4C1R87 

1 090 

1 1 f.nM 

JMP $8718 






C0C2 


1 1 10 

; CRUHCH TOKENS RC 

HIT 

INE eì 
C0C2 

sTRfl CODE 

1120 

; USE BV ALTÈRINO 

$8 

604 TO 'JMP CRUHCH" 



C0C2 

20FRC0 

1130 

CRUHCH JSR PUTREG 


C0C5 

RDFCR5 

1140 

LB8 CR5FC 


C0C8 

C9R0 

1150 

CMP #$80 


ceca 

D00F 

1166 

BUE STAND 


C0CC 

R9C0 

1170 

LBfì #$C0 


C0CE 

fi 200 

1180 

LUX #$06 


C0B0 

200CC1 

1190 

JSR TOKSTR 


C0D3 

20EBC0 

1200 

JSR GETREG 


C0B6 

R000 

1210 

LDV #0 


C0B3 

4CB8R5 

1220 

JMP $R5B8 


C0DB 

R9R0 

12.30 

STAND LBfl #$80 


C0DD 

R29E 

1240 

LBX #$9E 


C0DF 

200CC1 

1250 

JSR TOKSTR 


C0E2 

20EÈC0 

1260 

JSR GETREG 


C0E5 

BD0002 

1270 

LBR $200.X 


C0E8 

r rieri;* 

4C07R6 

1280 

1290 

JMP $8607 


LUC.t* 


f ' ' ' ‘ ‘ ‘ ' '■ 


C0EB 

RD28C1 

1300 

GETREG LBfl PSRVE 


C0EE 

48 

1310 

PHR 


C0EF 

RD29C1 

1320 

LBR flSfl’v'E 


C0F2 

8E28C1 

1330 

LBX XS8VE 


C0F5 

RC2BC1 

1340 

LDV VSRVE 


C0F8 

28 

1350 

PLP 


C0F9 

reicro 

60 

1360 
1370 

RTS 


tur ! t 




C0FR 

08 

1380 

PUTREG PHP 


C0FB 

8D29U1 

1390 

STR 8S8VE 
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C8FE 

8E2RC1 

1408 

STX 

X8RVE 

C 1 0 1 

8C2BC1 

1410 

STV 

VSRVE 

CI 04 

6c3 

1420 

PLR 


CI 05 

8D28C1 

1430 

STA 

PSflVE 

CI 03 

HD29C1 

1440 

LBfì 

HSfìVE 

CIOÈ 

60 

1450 

RTS 


r i or 


i j i-.’n 

• .........n, 

__ M . 


CISC 

8BBER5 

1478 

TOKSTR STA 

4A5BE 

C10F 

D8 

148@ 

CLD 


C110 

8EBBR5 

1490 

STX ÌR5BD 


CI 13 

8B01R6 

1500 

STA T A60:1 


CI 16 

8E00R6 

1510 

STX $A600 


CI 19 

Cfì 

1520 

DEX 


CI IH 

E0FF 

1530 

CPX #$FF 


C11C 

11003 

1540 

BNE LBL803 


CI 1E 

.*i i“'i 

1550 

SEC 


CI 1F 

E901 

1568 

SBC #1 


C121 

8DFCA5 

1.570 

LBL003 STA 

*A5FC 

CI 24 

8EFBR5 

1580 

STX $R5FB 


Ci 27 

60 

1590 

RTS 


CI 28 


1600 

;- 

— 


CI 28 

1610 PSfìVE 

CI 28 

1620 ASAVE — PSAVE+1 

CI 28 

1630 XSRVE = ASAVE+1 

C128 

1640 VSRVE = XSRVE+1 

TOT AL 

ERRORS IN FILE - 0 


KEVWRD 

C000 

RCTVEC 

C04F 

NORMAL. 

4B 

HEWRCT 

B 

NEUFUN 


EXECUT 

C06.9 

DOEX 

C072 

LABEL 

C08F 

BOLET 

C090 

RETURN 

C0.93 

PRTTOK 

C896 

PRTNOR 

L.BL000 

C0RC 

C0B0 
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f:RIJHCH 

C0C2 

STAND 

00 DB 

CETREG 

C0EB 

pi. ITREG 

C0FR 

tokstr 

f: 1 0f: 

LBL003 

C121 

pSflVE 

CI 28 

FlSflVE 

CI 29 

KSRVE 

C12fì 

VSRVE 

C12B 


, I 
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CAPITOLO 7 

BASIC EXTENDER II 


Abbiamo già introdotto un breve programma che trasferisce l’interprete dalla 
ROM alla RAM, permettendo cosi di fare cambiamenti. Ora che sono state discus¬ 
se alcune delle necessarie aggiunte al codice macchina, siamo in grado di aggiorna¬ 
re quel programma BASIC in modo da poter iniziare ad estendere il BASIC. Il li- 
sting completo di questo programma esteso viene ora presentato, sebbene molte li¬ 
nee siano identiche a quelle della versione che avete già — commenteremo solo le 
variazioni. 


BASIC extender II: listing 


0 RE PI 12343678301234567830123436783012343 
6783012343678901234367830123 

1 REM12343678901234567830123436783012345 
67890123456789012343678901234367830 

2 REM12345673301234567390123456783012345 
67830123456783012343678301234567830 

3 REM12345678301234567830123436783012345 
67890123456789012345673301234567390 

20 DEV = 1 

100 REM BR3IC EXTEHUER ROUTINE 

110 REM MOVE BEISIC ROM INTO RAM AT $8000 


- $BFFF 

120 URTA 163, 1,41,234, 133. 1.36,. 160.255,2 
00,32,32,8,130,1,1,32,6,8,138, 153,1, 1 
130 URTA 200,208,240,165,1,3,1,133,1,96, 

32,6,8,24,162,255,232,160,235,200,185 
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133 DATA 75,8, 133, 20, 135.-151,8. 48,01,96, 
133,21,185,227,8,129,20,144,235 

139 HATA 0 

140 RD = 2054 

130 READ A : IF 300 THEN POKE AD, A : RD 
= RD+1 • GOTO 153 

153 REM LORD MACHIME CODE FROM TRPE/DISK 

156 INPUT " FILE NRME "j IN* : IF DEV-8 
THEN IN* - IN*+",S,R" 

157 OPEN 2,DEV/0,IN* : INPUT# 2,SA,EH : 
POR X = SR TO ER : INPUT# 2,T : POKE X,T 

158 NEXT X •• CLOSE 2 
160 REM DO ACTUAL MOVE 

165 POKE 2068,0 : POKE 2075,0 
170 FOR X = 160 TO 191 
190 POKE 2069,X : POKE 2076,X 
200 SVS 2661 
210 NEXT 

220 POKE 2068,1 : POKE 2075,1 

221 REM DATA FOR ROM EXCUTE ALTERATION 
223 X = 0 : DATA 225,167,76,226,167,105/ 
227,167,192 

227 DATA 0 

228 READ TI : IF TI = 0 THEN 230 

229 READ T2,T3 : POKE 2123+X, TI : F'OKE 219 
9+X, T2 '• POKE 2275+X , T3 : X=X+1 • GOTO 228 

230 SVS 2087 : REM ALTER ROM 

231 REM ALTER CRUNCH TOKEHS ROUTINE 

232 POKE 42500,76 : POKE 42501,194 : POK 
E 42502,192 

241 POKE 774,150 : POKE 775,192 
300 END 


Commento 

1-3: le frasi DATA del programma originale provvedono ad una terza routine mac 
china che non è stata spiegata. Queste frasi REM fanno spazio per i dati su cui la 
vorerà questa terza routine. 

20: con questo programma esteso caricheremo un file di codice macchina. 11 dispo 
sitivo indicato è il registratore a cassette, cosi se lavorate col disco dovrete cam 
biarlo col numero 8. 
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155-158: queste linee caricano un file in linguaggio macchina dal dispositivo speci¬ 
ficato — l’estensore in linguaggio macchina che abbiamo appena descritto. Le linee 
equivalgono al caricatore di codice macchina del monitor. 

223-227: dati per la terza routine macchina che inizia al decimo elemento della li¬ 
nea 130 DATA. La terza routine sarà usata per immettere con un POKE nella 
routine di esecuzione dell’interprete un nuovo indirizzo che provocherà un salto al¬ 
la routine d’esecuzione modificata nell’estensore in linguaggio macchina. Questo va 
fatto in codice macchina perché si devono modificare due byte. Modificare un solo 
byte del salto con un POKE da BASIC avrebbe prodotto un salto non corretto al 
momento dell’interpretazione del successivo POKE. I dati nella linea 223 specifi¬ 
cano tre indirizzi con i valori per il byte basso, il byte alto ed il numero che vi andrà 
immesso. Il listing assembler per la terza routine è il seguente: 


MODIFICATORE DELLA ROUTINE DI ESECUZIONE: 
listing in linguaggio assemblatore 


82? 

200608 

JSR 

$0806 

82 R 

18 

CLC 


82 E 

R2FF 

LDX 

tt$FF 

82 D 

E8 

INX 


82E 

R0FF 

LDY 

#*FF 

830 

C8 

INY 


831 

B94B08 

LDR 

$084B,V 

834 

8514 

STA 

$14 

83G 

B99708 

LDR 

$0897,V 

839 

3001 

EMI 

$83C 

83B 

60 

RT5 


83C 

8515 

8TR 

$15 

83 E 

B9E308 

LDR 

$08E3,V 

841 

8114 

STR 

<$•14, X > 

843 

90 E B 

BCC 

$830 

CONTINUE < V, 

•N ) : 



Commento sul codice macchina 

Questa routine prende indirizzi a due byte dai dati nelle frasi REM e vi pone 
nuove informazioni (prese anch’csse dalle frasi REM). Le istruzioni agli indirizzi 
827-82E ‘accendono’ la RAM ed inizializzano il flag di riporto, i registri X ed Y. 
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Le linee 830-83C caricano i byte bassi ed alti degli indirizzi dalle frasi REM alla li¬ 
nea 1 del programma BASIC, eseguendo un controllo sui byte alti per vedere se ri¬ 
cadono neH’intcrvallo corretto di indirizzi per l’interprete. Le linee 83E-843 prele¬ 
vano e memorizzano i nuovi dati, saltando indietro per ricevere nuovi indirizzi. 

Torniamo al programma BASIC: 

228-229: questi nuovi dati vengono inseriti via POKE nelle linee 1,2,3 per essere 
prelevati dalla terza routine macchina in linea 0. 

230: ora diviene SYS 2087 invece di SYS 2054. La routine macchina in 2054 viene 
ancora chiamata, ma dall’interno della terza routine macchina alla linea 0. I cam¬ 
biamenti necessari per l’esecuzione della routine verranno completati da questa 
chiamata. 

231-232: il nuovo indirizzo viene immesso con POKE nella routine di creazione dei 
token — cosa che si può fare da BASIC perché la routine di creazione token non è 
usata durante l’esecuzione di un programma (non si potrebbe fare in modo diretto 
dal momento che i token dovrebbero venir creati in esecuzione). 

240-241 viene modificato il vettore ‘stampa token’ per puntare alla nostra routine 
modificata. 


Una volta modificato il vostro primo programma BASIC extender, o immessa 
ex novo questa versione, la cosa migliore sarebbe salvare questo programma all’ini¬ 
zio di un nastro, lasciare uno spazio per ulteriori estensioni al programma e quindi 
salvare sullo stesso nastro la versione assemblata del programma visto al capitolo 
6. Quando il programma verrà eseguito, vi verrà chiesto di indicare il nome del file 
e voi dovreste rispondere con qualsiasi nome abbiate dato al programma del capi¬ 
tolo 6 quando l’avete salvato. Vi basta premere ‘PLAY’ ora per caricarlo, evitando 
cosi un gran lavoro di scambio di cassette. 

Una volta assemblatolo ed introdottolo in memoria con questa tecnica, dovreste 
essere in grado di immettere qualsiasi nuova parola chiave azione (non ancora fun¬ 
zione) specificata nella tabella. Come detto nessuna di esse farà ancora nulla se non 
eseguire END, ma presto le cose cambieranno! 
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CAPITOLO 8 


PAROLE CHIAVE BASIC 
PER AZIONI 


SEZIONE 1: UNDEAD 


Ora che sono state presentate le routine BASIC oltre al codice macchina per 
estendere il BASIC, è tempo di introdurre le routine che permettono alle nuove pa¬ 
role chiave di fare qualcosa. In questa sezione del libro discuteremo tre parole chia¬ 
ve per azioni che sono più semplici di altre, non richiedendo l’introduzione di para¬ 
metri per la loro esecuzione. Ne! normale BASIC, ad esempio, il comando GOTO 
10 non richiede solo una routine per eseguire il GOTO, ma anche una che prelevi il 
parametro 10, senza il quale il GOTO sarebbe privo di senso. D’altra parte STOP 
non richiede parametri oltre alla parola chiave stessa. Più avanti mostreremo come 
aggiungere parole chiave che richiedono parametri. 

La parola chiave che aggiungeremo ora è UNDEAD — alcuni la chiamano 
‘OLD’, ma la notte precedente quella in cui venne scritta questa routine la TV tra¬ 
smetteva un film di vampiri... 

L’effetto del comando è quello di superare quel seccante problema che di tanto 
in tanto tutti devono affrontare — si batte NEW per togliere un programma dalla 
memoria ed improvvisamente ci si ricorda di non averlo salvato. UNDEAD ripri¬ 
stinerà il programma con la sola eccezione che le variabili andranno perdute. 

UNDEAD: listing in linguaggio assemblatore 


10 

20 

30 

40 


PRT 

SVM 

QRG $C05D 
l'JRD UNDERD-1 
QRG $C1E3 
UNDEAD LDfl #$FF 
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70 

LEV #1 

80 

STA V 

90 

JSR *0533 

100 

LDR *22 

110 

CLC 

120 

CL'D 

130 

RBC #2 

140 

STfl $2D 

150 

LDR $23 

160 

FIDC 40 

170 

3TR $2E 

180 

JMP *H65E 

190 

END 


END 


30-40: ricorderete da qualche pagina più addietro che tutti i vettori azione per le 
nuove parole chiave puntano al momento a END. Queste due linee pongono l’indi¬ 
rizzo dell’etichetta UNDEAD nell’appropriato vettore azioni della nuova tabella. 

50: le routine macchina delle nuove parole chiave occuperanno, insieme all’exten- 
der macchina, un’area di memoria fra COOO e C4B5 esadecimale. Non verranno 
immesse in ordine, ma la cosa non avrà conseguenze sulla loro esecuzione. 

60-90: quando si esegue NEW, una delle modifiche che essa fa è costituita dal por¬ 
re tre BYTES contenenti zero all’inizio dell’area di programma (800-802 esadeci¬ 
male), sebbene uno di essi (800) sia comunque sempre uguale a zero. Tre zeri rap¬ 
presentano l’indicatore di fine programma per l’interprete, quindi ogni tentativo di 
eseguire o listare il programma dopo NEW termina prima di iniziare, nonostante il 
programma sia intatto in memoria. Queste linee pongono il valore esadecimale FF 
nel terzo byte dell’area di programma, essendo questo il byte alto dei due byte di 
collegamento della prima riga di programma BASIC — il valore nei due byte è ora 
senza significato, ma non ha importanza. Viene ora chiamata la routine ‘ricollega 
linee’ dell’interprete, all’indirizzo A533 esadecimale, che esamina il programma ri¬ 
pristinando tutti i byte di collegamento che iniziano ogni linea BASIC e puntano al¬ 
l’inizio della seguente. 

100-170: la routine di ricollegamento delle linee usa i due byte di memoria posti alle 
locazioni 22-23 esadecimali come una variabile che indichi il punto cui si è arrivati 
nel programma e, quando l’elaborazione è terminata, questi byte puntano al termi¬ 
ne dell’ultima linea del programma BASIC. Questo valore viene prelevato e posto 
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nel puntatore principale che registra la fine del programma BASIC, con l'aggiunta 
di 2 per tener conto dei due zeri extra che indicano la vera fine del programma. 

180: ci sono vari altri puntatori da ripristinare prima di recuperare con successo il 
programma, ma ciò si può fare con una semplice chiamata alla routine CLR del¬ 
l’interprete normale. 

190: notate l’uso della direttiva END. È utile non solo per indicare il termine del Ii- 
sting in linguaggio assemblatore all’assembler Mastercode, ma il suo indirizzo è an¬ 
che il primo byte libero dopo la line della routine che esso termina, in modo che o- 
gni routine che vada aggiunta dopo questa, possa iniziare all’indirizzo specificato 
per END nel listing in linguaggio assemblatore. 


UNDEAD: listing completamente assemblato 


3 . dd. 

data 

bouree code 

0 


10 F'RT 

0 


20 SVM 

PI 


30 ORO $C05D 

C05D 

E2C1 

40 WRD UNDERD-1 

C05F 


50 ORO $C1E3 

C1E3 

R9FF 

60 UNDERD LI'H #$FF 

C1E5 

R00I 

70 LDV #1 

C1E7 

912B 

80 STR C$2B>.Y 

C1E9 

203305 

90 JSR $0533 

C1EC 

0522 

100 LDR $22 

C1EE 

18 

110 CLC 

C1EF 

D8 

120 CLD 

C1F0 

6902 

130 RDC #2 

C1F2 

852D 

140 STR $2D 

C1F4 

R523 

150 LDR $23 

C1F6 

6900 

160 RDC #0 

C1F8 

852E 

170 STR $2E 

CI F R 

4C5ER6 

180 JMP $R65E 

C1FD 


190 END 

TQTRL. ERRORE 

IH FILE-0 


UNDER!' C1E3 

tota l ri uri ber of sarobols 


1 
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La procedura da seguire per immettere questa routine è: 

1) caricate il programma Mastercode e per prima cosa richiamate il file in codice 
macchina dell’extender che avete introdotto in passato. La ragione per cui questo è 
necessario è che nell’assemblaggio di UNDEAD uno dei vettori azione della nuova 
tabella viene riscritto - questo non otterrà molto se il programma predetto manca! 

2) immettete il listing in linguaggio assembler di UNDEAD usando il file editor. 

3) richiamate l’assembler ed assemblate UNDEAD. 

4) salvate l’area di memoria compresa fra C000 e CIFC nella forma di file in co¬ 
dice macchina o, meglio ancora, l’area fra COOO e C4B5, che è l’intera zona che 
sarà poi usata dalle nuove routine. Usando questo secondo metodo ogni volta che 
si immette una nuova routine, sarete sicuri di non tagliare inavvertitamente alcuna 
delle routine seguenti come posizione in memoria, ma immesse precedentemente a 
quella corrente. 

5) caricate l’estensore BASIC II e fatelo eseguire, dandogli il nome del file conte¬ 
nente l’estensore ed UNDEAD. 

6) se tutto ha funzionato a dovere, potete ora dare NEW e poi cercare di dare 
LIST — non apparirà nulla, come vi aspettate. 

7) immettete in modo diretto UNDEAD e premete RETURN. Date ancora LIST 
e dovreste vedere il programma completamente riportato in vita. 


UNDEAD: note sull’uso 

UNDEAD può ripristinare un programma solo se non si è scritto nulla su di es¬ 
so in memoria. Se dopo aver dato NEW immettete una linea BASIC o dichiarate 
una variabile, non c’è modo in cui UNDEAD vi possa aiutare, poiché il program¬ 
ma non è più intatto in memoria. 


SEZIONE 2: Subex 

Immettete il seguente programma nel vostro 64: 
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10 GOSUB 20 
20 GOTO 10 



Ora fatelo eseguire e vedrete in un istante che avete esaurito la memoria-come? 
Ogni volta che una subroutine viene chiamata, l’indirizzo cui deve saltare l’esecu¬ 
zione quando si incontra RETURN viene memorizzato in un’area detta ‘pila di ri¬ 
torno’. Ogni RETURN prende l’ultimo indirizzo della pila e vi salta, ogni GOSUB 
aggiunge un indirizzo sopra quello già presente in cima alla pila. Uscendo da una 
subroutine con un mezzo diverso dal RETURN, l’indirizzo di ritorno resta sulla pi¬ 
la. Se la cosa si ripete spesso la pila si riempie e si genera un errore di tipo ‘OUT 
OF MEMORY’. 

Ammettiamo che uscire da una subroutine senza un RETURN non è una prati¬ 
ca da incoraggiare troppo e, dopo tutto, perché usare un GOSUB se non si vuole 
tornare in quel punto? Ci sono però circostanze nelle quali può essere estremamen¬ 
te utile uscire da una subroutine senza ingombrare la memoria. Se guardate il lin¬ 
guaggio assemblatore, ad esempio, vedrete che ci sono molti casi di subroutine che 
chiamano subroutine che chiamano subroutine... Non c’è nulla di male in questo, 
anzi è buona pratica di programmazione mettere il maggior numero di subroutine 
possibile. Ma cosa succede se, a distanza di quattro o cinque subroutine dalla routi¬ 
ne di controllo trovate una condizione che comporta la non esecuzione della catena 
di subroutine — ad esempio un errore nei dati in ingresso? Ciò che desiderate è se¬ 
gnalare l’errore e tornare immediatamente alla routine di controllo in modo da 
prendere i necessari provvedimenti, ma ciò non è possibile nel BASIC standard. 

Dovete risalire attraverso le subroutine, inserendovi ogni volta una linea che rilevi 
la segnalazione d’errore e ritorni ancora fino a raggiungere la routine di controllo. 
In un programma complesso ciò può implicare molte linee in più ed un considere¬ 
vole costo in termini di tempo. 

La risposta al problema è il comando SUBEX. Tutto ciò che fa è rimuovere l’ul¬ 
timo indirizzo di ritorno dalla pila, in modo che possiate uscire dall’ultima subrouti¬ 
ne senza ingombrare la pila. Ovviamente se volete saltare direttamente dalla quinta 
subroutine di una catena all’inizio della stessa SUBEX dovrà venir eseguito cinque 
volte, ma il risparmio di tempo e di complessità di programma può essere spesso 
considerevole. Con un SUBEX un programma del tipo: 


10 GOSUB 20 
20 SUBEX 
30 GOTO 10 


proseguirà indefinitamente. 
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SUBEX: listing in linguaggio assemblatore 


10 

F'RT 

20 

SVM 

30 

ORO $C05F 

40 

WRD SUBEX-1 

50 

ORG fCIFD 

60 

SUBEX LDR #*FF 

70 

STA Ì4R 

80 

JSR JR38R 

90 

TXS 

100 

CMP #$8D 

1 10 

BUE RETERR 

120 

PLR 

130 

PLR 

140 

PLR 

150 

PLR 

160 

PLR 

170 

RTS 

180 

RETERR JMP tflSEi 

190 

END 


END 


60-80: quando si esegue un RETURN nel BASIC normale viene chiamata la routi¬ 
ne alla posizione A38A esadecimale per trovare il primo indirizzo di ritorno sulla 
pila, cosa necessaria perché potrebbero essere in pila anche dati necessari per un ci¬ 
clo FOR. La routine a quell’indirizzo manipola anche la pila in modo che il primo 
indirizzo di ritorno sia posto in cima alla pila. Queste linee pongono i’indirizzo di 
memoria uguale a 4 A esadecimali, il che inizializza la routine di ricerca, poi la rou¬ 
tine viene chiamata. 

90-110: al ritorno dalla routine di ricerca in pila, l’ultimo valore da porre in pila 
sarà, si spera, un puntatore alla posizione dell’indirizzo di ritorno nella pila ed esso 
viene immagazzinato nel registro X. Questo è confermato inserendo il valore 8D in 
accumulatore. Se non è stato trovato un indirizzo di ritorno l’accumulatore non 
conterrà 8D e verrà fatto un salto a RETERR, che specifica un salto al messaggio 
di errore ‘RETURN WITHOUT GOSUB ERROR’. 

120-170: i cinque byte dell’indirizzo di ritorno vengono tolti dalla pila ed eliminati. 
La routine SUBEX è completata e ritorna. 
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SUBEX: listing completamente assemblato 


add. 

data 

source code 

0 


10 F'RT 

0 


20 SVM 

0 


30 ORC $C05F 

C05F 

FCC1 

40 WEB SUBEX-1 

C061 


50 ORO SCIFU 

CI FU 

R9FF 

60 SUBEX LUR l*$FF 

C1FF 

854R 

70 STA $4R 

C201 

208RR3 

30 JSR $R38R 

C204 

9R 

90 TXS 

C205 

C98D 

100 CNF #$8B 

C207 

D006 

110 BHE RETERR 

C209 

68 

120 PLR 

C26R 

68 

130 PLR 

C20B 

£ p 

DO 

140 PLR 

C20C 

68 

150 PLR 

C20D 

68 

160 PLR 

C20E 

60 

170 RTS 

C20F 

4CE0H8 

180 RETERR JMP $fl: 

C212 


190 EMÙ 


TOTRL ERRORS IN FILE — 0 


SUBEX CIFU 

RETERR C20F 

tota l riumber of symbols-2 


Come per UNDEAD, la procedura per caricare SUBEX in memoria é di chia 
mare prima l’ultimo file in codice macchina che avete salvato (extender- 
UNDEAD), caricatelo in memoria poi assemblate SUBEX. Salvate l’intera area di 
memoria e fate eseguire poi il BASIC extender II, dando il nome del vostro nuovo 
file. Dovreste ora essere in grado di far eseguire il secondo programma BASIC da 
to nell’introduzione di SUBEX senza terminare la memoria. 


SUBEX: note sulPuso 

SUBEX é un comando potente ma c’è bisogno di attenzione nell’uso. Se siete al¬ 
l’interno di una catena di subroutine, è essenziale che contiate esattamente quanti 
RETURN desiderate saltare o vi capiterà di rientrare nella routine sbagliata o di ri¬ 
cevere un errore di tipo ‘RETURN WITHOUT GOSUB’. 
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SEZIONE 3: RKILL 


Durante lo sviluppo di un programma è buona norma includere tante frasi REM 
quante sono necessarie ad assicurarvi di comprendere il programma la prossima 
volta che vi lavorerete. La leggibilità inoltre è migliorata spaziando bene i comandi 
sulle linee. Quando il programma è terminato però i REM e gli spazi extra sono 
semplicemente memoria sprecata che potrebbe essere meglio impiegata. RKILL ri¬ 
solve questo problema eliminando tutti i REM posti al termine di linee BASIC e 
tutti gli spazi fuori dalle virgolette. Notate che non rimuove i REM che occupano 
da soli una linea poiché, se scrivete correttamente i vostri programmi, potrebbero 
essere le intestazioni delle diverse sezioni del programma. I GOTO e GOSUB pun¬ 
teranno ad essi, permettendo cosi di aggiungere nuove linee iniziali alle sezioni sen¬ 
za dover modificare i numerosi GOTO e GOSUB nel programma. 


BKILL: listing completamente assemblato 


10 

PRT 

20 

3VM 

30 

QFLRG = $F 

40 

REMTOK * $3F 

50 

flSRVE = $0105 

60 

XSRVE = $0106 

70 

QRG $0051 

80 

URD RKILL-l 

90 

ORG $0160 

100 

RKILL LBR #$FF 

110 

STA $14 

120 

STR $15 

130 

; SRVE PRESEMI BRSIC UflRM STR 

RT LINK 


140 

LDR $302 

150 

LUX $303 

160 

STR TEMP 

170 

STX TEMP+1 

180 

; PUT NEW WRRM STRRT LINK IN 

190 

LDR #LBL003-LBL003/256*256 

200 

LDX #LBL003/256 

210 

STR $302 

220 

STX $303 

230 

; GET NEXT LINE NO TO BE TRER 


TED 
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240 

250 

260 

270 


L.BL003 INC *14 
BNE LBL004 

INC *15 

; USE ROM ROUTINE TO OET RDD 


OF LINE IN *5F & *60 
280 
290 
IT 
300 
310 
320 
330 
6 *15 
340 
350 
360 
370 

380 
390 
400 


LBL004 JSR *8613 
j IF HI LINK BYTE = 0 THEN EX 


LDY #1 

LBR (*5F>.V 

BEO LBL009 

; OET THIS LINE NO. 


INTO *14 


INV 

LDR <*5F).Y 
3TR *14 
INY 

LDR (*5F).Y 
STR *15 

J COPY LINE TO INPUT BUFFER D 

ELETING SPRCES-EXCEPT IN QIJOTES 
410 LDX #4 

420 3TX QFLRG 

430 LBL005 INY 

440 LDR (*5F >.Y 

450 ;IF BYTE = 0 THIS 13 THE END 

OF THE LINE SO INPUT IT 

460 BEQ LBL007 

470 . ; IF ITS R QUOTE THEN TOGGLE 

THE QIJOTES FLRG 
480 CMP #34 

490 BNE LBL006 

500 LDR QFLRG 

510 EOR #*FF 

520 STR QFLRG 

530 LDR #34 

540 ;IF THE QUOTFLRG 13 SET DONT 

DELETE RNVTHING 


550 

560 

570 

IF FOUND 
580 
590 
600 


LBL006 BIT QFLRG 
BMI LBL008 
; TEST FOR SPRCE 


& DELETE IT 


CMP #*20 
BEQ LBL005 

jTRRNSFER FIRST NON-SPRCE EVE 


N IF ITS R REM 
610 CMP #REMTOK 





620 

BNE LBL003 


630 

CPX #4 


640 

BNE LBL002 


650 

INX 


660 

STR $1FB.X 


670 

INX 


680 

LBL002 DEX 


690 

LBL007 LDR 

#0 

700 

INX 


710 

STR $1FE.X 


720 

STX $B 


730 

JMP $R4R4 


740 

LBL008 INX 


750 

STR $1FE.X 


760 

JMP LBL005 


770 

LBL009 LDR 

TEMP 

780 

LDX TEMP+1 


790 

STR $302 


800 

STX $303 


810 

JMP $R474 


820 

TEMP WRD 0 


830 

END 



END 


100-120: le locazioni 14-15 sono usate dal file editor BASIC quando per qualche 
motivo lavora entro un programma. Essi vengono caricati con 255 ciascuno, in 
modo che alPinizio della routine principale Paggiunta di uno li riporti a zero. 

130 170: durante questa istruzione chiameremo la routine di ingresso linee, che ela¬ 
bora una linea posta da tastiera nel buffer di input. Quando questo processo termi¬ 
na, la routine toma normalmente ad uno stato d’attesa di input da tastiera. Noi vo¬ 
gliamo che torni alla routine RKILL, quindi salviamo l’indirizzo di collegamento e- 
sistente in 302-303 (esadecimali) in modo da potervi piazzare un collegamento a 
questa routine. 

180-220: viene installato un nuovo indirizzo di collegamento che punta a questa 
routine. 

230-260: viene incrementato di uno il numero di linea su cui si sta lavorando. 
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270-280: viene usata una routine ROM per trovare l’indirizzo di quella linea in me¬ 
moria. Se non c’è una linea del genere, la routine restituirà l’indirizzo della linea col 
numero seguente più vicino. 

290-320: se il byte alto del byte di collegamento all’indirizzo indicato dalla routine 
ROM è zero, allora è stata trovata la fine del file e la routine termina. 

330-390: il numero della linea trovata viene prelevato e memorizzato alle locazioni 
14-15 esadecimali. 

410-420: queste linee inizializzano la routine. X sarà l’inizio del testo della linea nel 
buffer d’ingresso (ricavato dai byte di collegamento e dal numero di linea); il segna¬ 
le di virgolette, che registra se un carattere in ingresso è fra virgolette, viene inizia- 
lizzato. 

430-440: viene posto in accumulatore il prossimo byte della linea. 

450-460: se il byte è zero, è stata raggiunta la fine linea e viene fatto un salto alla 
routine ROM che introduce effettivamente una linea. 

470-530: se il carattere prelevato è un punto di domanda, il segnale di virgolette è 
posto uguale a zero o uno a seconda che sia il primo o il secondo segno di virgolet¬ 
te di una coppia. 

550-560:. se il segnale di virgolette è a zero, la parte principale della routine viene 
tralasciata poiché non vogliamo interferire col contenuto delle righe fra virgolette. 

570-590: se il carattere prelevato è uno spazio, viene ignorato e si passa al successi¬ 
vo carattere. 

610-620: si fa un controllo sul token di REM: se il carattere non corrisponde a 
REM, viene posto nel buffer d’ingresso. 

630-680: se è stato rilevato un token di REM, si fa un test per vedere se si trova a i- 
nizio riga (il registro X è in questo caso 4). Se è cosi, viene posto nel file delle linee 
650-660. Altrimenti il registro X viene decrementato per puntare ai due punti pre¬ 
cedenti nel buffer d’ingresso. Il puntatore contenuto nel registro X punterà ora ai 
due punti precedenti il REM se il REM non si trovava a inizio linea ed alla posizio¬ 
ne seguente il REM in caso contrario (tutti questi si trovano comunque, ricordate, 
nel buffer e non nella linea vera e propria). 
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690-730: viene ora memorizzato uno zero nel buffer d’ingresso segnalando così la 
fine riga. La lunghezza della linea viene piazzata nella locazione B (esadecimale) e 
viene poi eseguita la routine di input, ponendo cosi la linea accorciata nel program¬ 
ma invece dell’originale. 

740-760: a questo punto tutti i test precedenti hanno fallito, cosi il carattere non de¬ 
v’essere cancellato e dobbiamo memorizzarlo nel buffer d’ingresso per poi ripetere 
il ciclo e prelevare il carattere seguente. 

770-810: è la routine d’uscita da RKILL, quindi viene ripristinato il normale colle¬ 
gamento con la tastiera e si salta alla routine del modo diretto, provocando cosi il 
messaggio ‘READY’. 

820: TEMP stabilisce la locazione di memoria per il collegamento originale al ‘war- 
m start’ (partenza a caldo o reinizializzazione del sistema), che viene salvato all’ini¬ 
zio di RKILL. 


RKILL: listing completamente assemblato 


add. 

data. 

souree code 


0 


10 PRT 


0 


20 SYM 


0 


30 QFLRG = $F 


0 


40 REMT0K = $8F 


0 


50 RSRVE = $C105 


0 


60 X3RVE = $C106 


0 


70 ORG $C051 


C051 

5FC1 

30 WRD RKILL-1 


C053 


90 ORG $C160 


Gl 60 

R9FF 

100 RKILL LDR #$FF 


Gl 62 

3514 

110 STR $14 


Gl 64 

3515 

120 STR $15 


Gl 66 


130 ; SRVE PRESEMI 

BRSIG 

URRM 

START LINK 


Gl 66 

RD0203 

140 LDR $382 


Gl 69 

RE0303 

150 LDX $303 


C16C 

8DE1C1 

160 STR TEMP 


C16F 

8EE2C1 

170 3TX TEMP+1 


CI 72 


130 ; PUT NEW URRM 

START 

LINK 

IH 
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CI 72 

R97C 

190 

LDA #LEL003-LBL003/25 

6*256 




CI 74 

R2C1 

200 

LDX #LBLQ03/256 

C176 

8D0203 

210 

STR $302 

CI 79 

8E0303 

220 

STX $303 

C17C 


230 

; GET NEXT LINE HO TO 

EE TREATED 



C17C 

E614 

240 

LBL003 INC $14 

C17E 

D002 

250 

BUE LEL004 

Ct 80 

E615 

260 

INC $15 

C182 


270 

USE ROM ROUTINE TO 

GET RBB OF LINE IN 

$5F $ $60 

C182 

2013R6 

280 

LBL004 JSR $R613 

C185 


290 

j IF HI LINK BVTE = 0 

THEN 

EXIT 



C185 

R001 

300 

LDV #1 

C187 

B15F 

310 

LBR <$5F>.V 

C189 

F047 

320 

BEQ LBL009 

C18B 


330 

; GET THIS LINE NO. I 

NTO $14 & $15 



C18B 

C3 

340 

INV 

CISC 

B15F 

350 

LBR <$5F).V 

C190 

C8 

370 

INY 

C191 

B15F 

380 

LBR ($5F).V 

C193 

8515 

390 

STR $15 

C195 


400 

; COPV LINE TO INPUT 

BUFFER DELETING SPRCES-EXCEPT IN QUOTES 

C195 

R204 

410 

LBX #4 

C197 

860F 

420 

STX QFLAO 

C199 

G8 

430 

LBL005 INY 

C19R 

B15F 

440 

LBR $5F '} . V 

C19C 


450 

JIF BVTE = 0 THIS IS 

THE END OF THE 

LINE SO INPUT IT 

C19C 

F022 

460 

BEQ LBL007 

C19E 


470 

; IF ITS R QUOTE THEN 

TOGGLE THE QUOTES 

FLRG 

C19E 

C922 

480 

CNP #34 

C1R0 

D008 

490 

BNE LBL006 

C1R2 

R50F 

500 

LBR QFLRG 

C1R4 

49FF 

510 

EOR #$FF 

C1R6 

850F 

320 

STR QFLRG 

C1R8 

R922 

530 

LBR #34 

CIRO 


540 

;IF THE QUOTFLAG IS S 

ET DONT BELETE 

RNVTHING 

C1RR 

240F 

550 

LBL006 BIT QFLRG 

CIAC 

301D 

560 

BRI LBL008 

CIRÉ 


570 

: TEST FOR SPRCE & BE 

LETE 

IT IF FOUNB 




CIRÉ 

C320 

580 

CIBO 

F0E7 

590 

C1E2 


600 

F'RCE 

EVEN IF 

ITS fl 

C1B2 

C98F 

610 

C1B4 

D015 

620 

C1B6 

E004 

630 

C1B3 

TJ005 

640 

C1BR 

E8 

650 

C1BB 

9DFB01 

660 

C1BE 

E8 

670 

C1BF 

CR 

680 

C1 CO 

R900 

690 

C1C2 

E8 

700 

C1C3 

3DFB01 

710 

C1C6 

860B 

720 

C1C8 

4CR4R4 

730 

C1CB 

E8 

740 

C1CC 

9DFB01 

750 

C1CF 

4C99C1 

760 

C1B2 

RDE1C1 

770 

C1D5 

REE2C1 

780 

C1D8 

8D0203 

790 

CI DB 

8EO303 

800 

CI DE 

4C74R4 

810 

C1E1 

0000 

820 

C1E3 


830 


CMF' #$20 
BEQ LBL005 
; TRANSFER FIRST NON 
REM 

CMP #REMTOK 
BNE LBL008 
CPX #4 
BNE LBL002 
INX 

STR $1FB.X 
INX 

LBL002 DEX 
LBL007 LDR #0 
INX 

STR $1FB,X 
STX $B 
JMP $R4R4 
LBL008 INX 
STR $1FB.X 
JMP LBL005 
LBL009 LBR TEMP 
LUX TEMP+l 
STR $302 
STX $303 
JMP $R474 
TEMP URD 0 
END 


TOTRL ERRORS IN FILE - 0 


QFLRG 

F 

REMTOK 

3F 

fìSRVE 

CI 05 

XSRVE 

CI 06 

RKILL 

CI 60 

LEL0O3 

C17C 

LBL004 

CI 82 

LBL005 

CI 99 

LBL006 

C1RR 

LBL002 

C1BF 

LBL007 

C1C0 

LBL008 

C1CB 

LBL009 

C1D2 

TEMP 

C1E1 


total number of symbols-14 
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Come per la routine precedente, per venir introdotto RKILL dev’essere prima 
assemblato nel vostro file generale che, a questo punto, dovrebbe consistere dell’e- 
xtender, di UNDEAD e di SUBEX. Il file dovrebbe venir salvato e poi posto in me¬ 
moria con il BASIC extender II. Una volta caricato il file, battere direttamente 
RKILL dovrebbe eliminare spazi e REM dal BASIC extender. 


RKILL: note sull’uso 

RKILL è un comando in modo diretto — non può venir inserito in una linea di 
programma. La ragione di ciò é che. poiché abbrevia il programma, altera i punta¬ 
tori usati dall’interprete. Fare questo mentre un programma è in esecuzione è una 
ricetta sicura per combinare un pasticcio, perciò RKILL termina l’esecuzione di un 
programma una volta completato (come LIST). 
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CAPITOLO 9 

IL PROBLEMA DEI PARAMETRI 


SEZIONE I: GETWRD 

Abbiamo già notato che alcune parole chiave per azioni richiedono che vengano 
prelevate dalla linea di programma altre informazioni prima che essa possa venir e- 
seguita. Questa routine dall’aspetto insignificante realizza questa funzione per le 
nostre nuove parole chiave e dev’essere immessa nel file globale di codice macchina 
prima che noi possiamo introdurre nuove parole chiave con parametri. Il suo nome 
è GETWRD. 


GETWRD: listing in linguaggio assemblatore 

10 PRT 

20 SVM 

30 ORO $C12C 

40 ; ROUTINE TO GET 16 BIT UNSIGN 

ED INTEGER FROM BASIC INTO $14 & $15 
50 GETWRD JSR $AD8fì 

60 JMP $B7F7 

70 END 

END 


50: la routine qui chiamata è nell’interprete standard e si limita semplicemente a 
prelevare un numero in virgola mobile dalla linea BASIC attualmente in elabora 
zionc. I numeri immessi in modo non corretto provocheranno un errore sintattico, 
come per una normale parola chiave BASIC. 
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60: questa routine trasforma il numero prelevato in un intero dell’intervallo 0- 
65535. Numeri esterni a quest’intervallo provocano un errore del tipo ‘ILLEGAL 
QUANTITY’ (quantità non lecita). 


GETWRD: listing completamente assemblato 


add. 

data 

scure© code 

0 


10 F'RT 

0 


20 SVM 

0 


30 ORG $C12C 

C12C 


40 ; ROUTINE T0 GET 16 BI 

T UNS 

UGNEB INTEGER FROM BASIC IRTO $1.4 & 

$15 

C12C 

208AAD 

50 GETWRD JSR $AD3A 

C12F 

4CF7B7 

60 JMP $B7F7 

CI 32 


70 END 


TOTAL ERR0R3 IN FILE — 0 


GETWRD C12C 

total riumber of symbols- 1 


Si, questo è tutto ciò che serve. Non potete ancora fare nulla con la routine, ma i 
prossimi comandi la useranno intensamente per restituire i parametri per le nostre 
nuove parole chiave. Come le routine precedenti, dev’essere immessa nel codice 
macchina globale prima di passare alla sezione seguente. 


SEZIONE 2: DOKE 

Ora che possiamo prelevare parametri per nuove parole chiave, tutta una serie di 
nuove possibilità si apre. La prima di queste è DOKE, che semplicemente pone in 
memoria un numero compreso fra 0 e 65535 in una locazione a due byte. Questo e- 
vita tutte le complicazioni di immettere espressioni come VAR - 256 IN- 
T(VAR/256) ogni volta che si devono mettere in memoria numeri a due byte. 
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DOKE: listing in linguaggio assemblatore 


10 

PRT 

20 

GETWRD = $C12C 

30 

SYM 

40 

ORO $C04F 

50 

WRB DOKE-1 

60 

ORO $0212 

70 

DOKE JSR GETWRD 

80 

CHECK FOR R CONNO 

30 

JSR $REFD 

100 

; PUT RDDR.E3S ON STRCK WHIU 

GETTINO 

THE DflTR 

110 

LDfl $14 

120 

PHfl 

130 

LDR $15 

140 

PHR 

150 

; GET VRLUE TO BE DOKED 

160 

JSR GETWRD 

170 

; FLIT RDDRESS INTO TEMPORRR' 

POINTER 


180 

LDX $15 

190 

LDV $14 

200 

PLR 

210 

STR $15 

220 

PLR 

230 

STA $14 

240 

TVR 

250 

; USE ROM ROUTINE TO SET ! 

ZERO & 

PUT FIRST BYTE IN MEMORY 

260 

JSR $B828 

270 

IHY 

280 

TKR 

290 

STR ($14).Y 

300 

RT3 

310 

END 


END 


Commento 

70: ricava, per mezzo di GETWRD, il numero corrispondente all’indirizzo cui la 
cifra dev’essere immessa via DOKE. 

80-90: se non c’è una virgola dopo il primo parametro, si segnala un errore sintatti¬ 
co. 
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100-140: il primo parametro viene salvato sulla pila dopo essere stato prelevato 
dalle locazioni esadecimali 14-15 in cui GETWRD l’aveva posto. 

160: viene chiamata ancora GETWRD per trovare il valore da immettere con la 
DOKE. 

180-230: il valore viene posto in X ed Y e l’indirizzo viene rimesso nelle locazioni 
14-15 esadecimali. 

240-260: il byte basso del dato da memorizzare viene posto in accumulatore, quin¬ 
di viene richiamata una breve sezione di ROM che mette a zero il registro Y e cari¬ 
ca il contenuto dell’accumulatore nella locazione indicata dai due byte che iniziano 
alla posizione 14. Si sarebbe potuto fare in quattro byte in questa stessa routine, 
ma dal momento che due istruzioni erano nella ROM con un’istruzione di ritorno 
dopo di loro, perché non usarle? 

270-330: il valore di Y viene incrementato di uno ed il byte alto del valore da me¬ 
morizzare via DOKE è posto nel byte al di sopra di quello in cui è stato piazzato 
quello basso. 


DOKE: listing completamente assemblato 


add. 

data 

scorce code 

0 


10 PRT 

0 


20 GETWRD = $C12C 

0 


30 SVM 

0 


40 0RG $C04F 

C04F 

11C2 

50 MRD D0KE-1 

C051 


60 ORO $C212 

C212 

202CC1 

70 COKE JSR GETWRD 

C215 


80 ; CHECK FOR R COMPIR 

C215 

20FURE 

90 JSR fREFD 

C218 


100 ; PIJT RDDRESS OH STflC 

K UHILE GETTINO THE DRTfì 

C218 

0514 

110 LDR $14 

C21R 

48 

120 F'HFl 

C21B 

A315 

130 LDfl $15 

C21D 

48 

140 PHfl 

C21E 


150 ; GET VflLUE T0 BE D0K 

EU 

C21E 

202CC1 

160 JSR GETWRD 
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C221 


170 ; PIJT RDDRESS INTO TE 

MPORRRV POINTER 

C221 

R615 

180 LDX $15 

C223 

R414 

190 LDV $14 

0225 

68 

200 PLR 

0226 

8515 

210 STR $15 

0228 

68 

220 PLR 

0229 

8514 

230 STR $14 

022B 

93 

240 TVR 

0220 


250 ; USE ROM ROUTINE T0 

SET 1 

T0 ZERO 

& PUT FIRST BYTE IN MEMORY 

0220 

2928B8 

260 JSR $B828 

022F 

OR 

270 INY 

0230 

8R 

280 TXH 

0231 

9114 

290 STR ($14).Y 

0233 

60 

300 RTS 

0234 


310 END 

T0TRL 

ERR0RS 

IN FILE — 0 

GETWRD 


0120 

DOKE 


0212 

total 

number 

of ssmbol s — 2 


DOKE: note sull’uso 

Doke può venir usata per sostituire ogni doppio comando POKE, ma ricordate 
che se il suo argomento è un valore inferiore a 256, il byte al di sopra di quello spe¬ 
cificato nel primo parametro verrà azzerato, quindi DOKE 255 non può sostituire 
POKE. La sintassi corretta per DOKE è: 

DOKE <indirizzo>,<valore> 


SEZIONE 3: Plot 

Non c’è dubbio che i caratteri di controllo del cursore del Commodore diano 
una grossa flessibilità al momento di trasferire materiale sullo schermo. Cionono¬ 
stante vi sono casi in cui sarebbe bello poter scrivere qualcosa nel centro dello 
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schermo senza specificare una lunga lista di caratteri di controllo o stampare una 
parte di qualche stringa definita in precedenza di quei caratteri. I! nuovo comando 
PLOT vi permetterà di muovere il cursore a qualsiasi posizione con un singolo co¬ 
mando. 


PLOT: listing in linguaggio macchina. 


10 PRT 

20 SVM 

30 GETWRD = $C12C 

40 GRG $G05B 

50 WRD PLOT-l 

60 ORO $C3DR 

70 PLOT JSR GETWRD 

80 JSR $REFD 

90 LDR $15 

100 BNE IQERR 

110 LDR $14 

120 CflP fi25 

130 ECS IQERR 

140 PHR 

150 JSR GETWRD 

160 PLR 

170 TRX 

ISO LDR $15 

190 BUE IQERR 

200 LDV $14 

210 CPV #40 

220 BCS IQERR 

230 JMP $FFF0 

240 IQERR JMP $B248 

256 END 

END 


Commento 

70-130: queste linee ricavano il parametro per il numero di linea (posizione vertica¬ 
le sullo schermo). Controllate che faccia seguito una virgola e che il numero cada 
nelPintervallo 0-24. 
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140-220: il numero di linea viene memorizzato sulla pila e poi viene ricavato il nu¬ 
mero di colonna, che sarà controllato per vedere se è nell’intervallo 0-39. Il registro 
X verrà caricato col numero di riga ed Y con quello di colonna. 

230: chiama la routine del KERNAL che stabilisce la posizione del cursore. La 
routine del KERNAL usa i registri X ed Y per ottenere la posizione esatta. 

240 : IQERR è l’indirizzo per stampare il messaggio di ‘ILLEGAL QUANTITY’. 


PLOT: listing completamente assemblato 


scici. 

data 

souree code 

0 


10 PRT 

0 


20 SYM 

0 


30 GETWRD = $C12C 

0 


40 ORO $C05B 

C05B 

D9C3 

50 WRD PL0T-1 

C05D 


60 0RG $C3DH 

C3DR 

202CC1 

70 PLOT JSR GETWRD 

C3DH 

20FBRE 

80 JSR $REFD 

C3E0 

R515 

90 LDR $15 

C3E2 

DQ19 

100 BUE IQERR 

C3E4 

R514 

110 LDR $14 

C3E6 

C919 

120 CNP #25 

C3E8 

B013 

130 BCS IQERR 

C3ER 

48 

140 PHR 

C3EB 

202CC1 

150 JSR GETWRD 

C3EE 

68 

160 PLR 

C3EF 

RR 

170 TRX 

C3F0 

R515 

180 LDR $15 

C3F2 

D009 

190 BUE IQERR 

C3F4 

R414 

200 LDV $14 

C3F6 

C028 

210 CPV #40 

C3F8 

B003 

220 BCS IQERR 

C3FR 

4CF0FF 

230 JMP $FFF0 

C3FB 

4C48B2 

240 IQERR JMP $B248 

C400 


250 END 


TOTAL ERRORE: IN FILE —- 0 


GETWRD 

PLOT 

IQERR 

total riurtber¬ 


ci 2C 
C3DR 
C3FD 
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PLOT: note sull’uso 

PLOT può venir usato per sostituire la maggior parte delle espressioni che usano 
stringhe di caratteri di controllo del cursore, sebbene questi rimangano utili per le 
mosse a posizioni relative rispetto a quella corrente del cursore. PLOT può lavora¬ 
re su valori come su espressioni, del tipo PLOT X+3.Y/2. 

La sintassi corretta per PLOT è: 

PLOT<numero di righe>,<numero di colonne> 


SEZIONE 4: Delete 


Cancellare righe una alla volta può essere noioso, specialmente se si può immet¬ 
tere il comando DELETE per rimuovere in un attimo una serie di linee. 


DELETE: listing in linguaggio assemblatore 


10 
20 
30 
40 ' 
50 
60 
70 
80 
90 
1 00 
110 
120 
130 
140 
150 
160 
170 


PRT 


.: BLOCK DELETE OF LINES 
SVM 

ORO TC053 
WRD DEL-1 
ORO $C400 
GETWRB = fC12C 
DEL JSR GETWRD 


; CONVERT TO RDDRESS 
JSR $fl613 
BCC IJLERR 


.: SRVE POINTER OH STOCK 

LDfl f-5F 

PHR 

LDfl $60 
PHfl 


CHECK THflT R - SION FOLLOWS 
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188 

LDfi #45 

190 

JSR $REFF 

288 

; GET IRSI NO. TO BE DELETED 

210 

JSR GETWRD 

228 

JSR $8613 

238 

BCC ULERR 

248 

; GET RDDRESS OF END GF LRST 

LINE TO 

BE DELETED 

250 

LDV #1 

260 

LDR <*SF).Y 

270 

TRX 

280 

DEV 

290 

LDR <$5F).V 

300 

TRV 

310 

NON STURE THESE BVTES IN Fi 

RST LINE 

TO BE DELETED 

320 

F'LR 

330 

STR $60 

340 

PLR 

350 

STR $5F 

368 

T't'R 

370 

LDV #8 

380 

STR <$5F).V 

398 

INV 

400 

TXR 

410 

STR ($5F).V 

420 

: GET LINE NO. TO BE DELETED 

430 

INV 

440 • 

LDR <$5F V 

450 

STR $14 

460 

INV 

470 

LDR ( $5F . V 

480 

STR $15 

490 

; FLIT ZERO INTO BRSIG INPUT ] 

IJFFER - 

TEL.L FILE ED. TO DELETE LINE 

500 

LDR #0 

510 

STR $200 

520 

; TIDV IJP RETURN STOCK 

530 

PLR 

540 

PLR 

558 

USE ROM ROUTINE TO DELETE 1 

INÈ 


568 

JMP $R4R4 

570 

ULERR JMP $R8E3 

588 

END 





100-110: la routine alla posizione A613 esadecimale converte il primo numero di li¬ 
nea prelevato da GETWRD in un indirizzo nella memoria di programma. Se il nu¬ 
mero di linea non viene trovato, si azzererà il flag di riporto e verrà richiamato il 
messaggio di errore ‘UNDEFINED LINE’ (linea non definita). 

130-160: l’indirizzo di linea scoperto dalla routine alla locazione A613 esadecimale 
è stato ora posto da quella routine nelle posizione 5F-60 esadecimali. Quei due byte 
vengono poi memorizzati sulla pila, dal momento che stiamo per ricavare un altro 
indirizzo di linea e non vogliamo perdere il primo. 

170-190: si controlla che un ’ segua il primo numero di linea, usando la stessa 
routine che in qualche altro posto controlla una virgola, ma prima si definisce il ca¬ 
rattere che stiamo cercando e si salta alla routine due byte più avanti che nel caso 
precedente. 

200 230: si ricava l’ultimo numero di linea da cancellare e se ne determina l’indiriz¬ 
zo. 


240-300: si ricava l’indirizzo della linea seguente l’ultima linea da cancellare me¬ 
diante i byte di-collegamento dell’ultima linea e lo si pone nei registri X ed Y. 

310-410: l’indirizzo della linea seguente l’ultima viene ora piazzato nei byte di col- 
legamento della prima linea da cancellare. 

420-480: la serie di linee costituisce ora, agli occhi dell’interprete, un’unica linea, vi¬ 
sto che i suoi byte di collegamento puntano oltre la fine della serie. Il numero reale 
della linea da cancellare si ricava ora dai due byte successivi a quelli di collegamen¬ 
to. 

490-510: viene memorizzato zero nel buffer d’ingresso — questo indica al file editor 
del BASIC che si deve cancellare una linea. 

520-540: una volta eliminate linee dal programma, non possiamo tornare allo stes¬ 
so indirizzo da cui DF.LETE è stata chiamata, visto che ora potrebbe essere cam¬ 
biato, quindi l’indirizzo di ritorno viene prelevato dalla pila ed eliminato. 

550-560: si salta alla routine ROM che cancella le linee — essendo il corretto nu¬ 
mero di linea memorizzato in 14 e 15 esadecimali per essere usato da questa routi¬ 
ne. 


570: salto alla routine di errore ‘UNDEFINED LINE’ 
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DRLETE: listing completamente assemblato 


a.dd. 

data 

source code 

0 


10 F'RT 

0 

c 


20 ; BLOCK HELETE OF LIME 

0 


30 SVM 

0 


40 ORO $C053 

C053 

FFC3 

50 URD DEL.-1 

C055 


60 ORO $C400 

C400 


70 GETWRD = $C12C 

C400 

202CC1 

80 DEL JSR GETWRD 

C403 


90 ; CONVERT TO RDDRESS 

C403 

2013R6 

100 -JSR $8613 

C406 

903F 

110 BCC ULERR 

C408 


120 SRVE POINTER OH STR 

CK 

C408 

R35F 

130 LDR $5F 

C40fl 

48 

140 PH8 

C40B 

R560 

150 LDR $60 

C40D 

48 

160 PHR 

C40E 


170 ; CHECK TMRT fi - SIOH 

FOLLOWS 


C40E 

R32D 

180 LDR #45 

C410 

20FFRE 

190 JSR $REFF 

C413 


200 GET LRST HO. TO BE 

DEL. ET Eli 


C413 

202CC1 

210 JSR GETWRD 

C416 

201386 

220 JSR $8613 

C419 

902C 

230 BCC ULERR 

C41B 


240 GET RDDRESS OF END 


OF LfiST LINE TO EE DELETED 


C41B 

R00 1 

250 

LHV 

#1 

C41D 

BIST¬ 

260 

LDR 

< $5F >.V 

C41F 

RO 

270 

TRX 


C420 

88 

280 

BEV 


C421 

B15F 

290 

LDR 

(. $5F ?. V 

C423 

R8 

300 

TRV 


C424 


310 

HOW STURE 

ES IH 

FIRST 

LIHE TO BE 

DELETED 

C424 

68 

320 

PLR 


C425 

8560 

330 

STR 

$60 

C427 

68 

340 

PLR 


C428 

855F 

350 

STR 

$5F 

C42R 

98 

360 

TVR 







C42B 

A000 

370 

LTiV #0 

C42D 

915F 

380 

STA < $5F).V 

C42F 

C3 

390 

INV 

C430 

SA 

400 

TXA 

C431 

915F 

410 

STA ($5F).V 

C433 

DELETED 

420 

SET LINE NO. TU BE 

C433 

C8 

430 

INV 

C434' 

B15F 

440 

LDA <$5F>.V 

C436 

8514 

450 

STA $14 

C438 

C8 

460 

INV 

C439 

B15F 

470 

LDA < $5F).V 

C43B 

8515 

480 

STA $15 

C43D 


490 

; PIJT ZERO INTO BASIC 

INPUT 

LINE 

' BUFFER 

- TEL 

.L FILE ED. TO DELETE 

C43B 

A900 

500 

LDA #0 

C43F 

8D0002 

510 

STA $200 

C442 

K 

C442 


520 

; TIDV UP RETURN STFIC 

68 

530 

PLA 

C443 

68 

540 

PLR 

C444 

DELETE 

: LINE 

550 

; USE ROM ROUTINE TO 

C444 

4CA4A4 

560 

JMP $A4A4 

C447 

4CE3A8 

570 

IJLERR JMP $ASE3 

C44A 


580 

END 


TOTAL ERRORS IN FILE — 0 


GETURD 

DEL 

IJL.ERR 

total ri uro ber¬ 


ci 2C 
C400 
C447 


of symbols - 3 


DELETE: note sull’uso 

Come ogni comando che altera la struttura di un programma, anche DELETE 
può creare problemi se usato durante l’esecuzione di un programma, cosi il pro¬ 
gramma termina quando esegue una DELETE. DELETE verrà usato normalmen¬ 
te in modo diretto, ma può essere usato come dispositivo di sicurezza nei program¬ 
mi, ad esempio per rimuovere linee che non volete vengano esaminate, se viene pre- 
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muto il tasto STOP. Difatti, DELETE è più efficace nel proteggere un programma 
che ad esempio NEW ora che è disponibile UNDEAD. UNDEAD non può ripri¬ 
stinare le linee cancellate con DELETE, poiché sono già state riscritte. 

La sintassi corretta per DELETE è: 

DELETE <prima linea da cancellare > — <ultima linea da cancellare > 


SEZIONE 5: BSAVE 


Ora che, come speriamo, state appassionandovi alle meraviglie che é possibile 
realizzare con il codice macchina, desidererete presto poter salvare blocchi di me¬ 
moria senza dover passare attraverso il monitor del programma Mastercode. In 
questa e nella prossima sezione presentiamo tre nuovi comandi che permetteranno 
di salvare, verificare e ricaricare in seguito una qualsiasi zona di memoria. Senza 
fare altre considerazioni, questo è un modo semplice per caricare routine macchina 
in memoria. 


BSAVE: listing in linguaggio assemblatore 



F'RT 

GETWRD = $C12C 
SVM 

ORO $€065 
UIRD BSRVE-1 
ORO $C234 
BSRVE JSR $E1.D4 
JSR $REFD 
JSR GETWRD 
LDR $14 
PUR 

LDR $15 
F'HR 

JSR $REFD 
JSR GETWRD 
LDX $14 
LDV $15 
PLR 

STR $15 


50 


f,e 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 
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200 

PLR 


210 

STO 

$14 

220 

LDR 

#$14 

230 

JMP 

$£15! 

240 

END 



END 


70: si usa una routine del KERNAL per prelevare tutti i parametri di un normale 
comando per file cioè nome, dispositivo ed indirizzo secondario. 

100-140: l’inizio dell’area di memoria da salvare, prelevato da GETWRD, viene 
messo in pila. 

150-210: l’indirizzo finale dell’area viene caricato nei registri X ed Y, l’indirizzo ini¬ 
ziale viene recuperato dalla pila e rimesso nelle posizioni 14-15 esadecimali. 

220-230: viene caricato in accumulatore 14 esadecimale, per specificare l’indirizzo 
contenente l’indirizzo d’inizio del blocco di memoria da salvare. 11 salvataggio, in sé 
è realizzato dalla stessa routine del KERNAL che esegue tutti i salvataggi da BA¬ 
SIC. 


BSAVE: listing completamente assemblato 


add. 

data 

source code 

0 


10 PRT 

0 


20 GETWRD = $0120 

0 


30 SYM 

0 


40 ORG $0065 

C065 

3302 

50 WRD BSR'v'E-1 

0067 


6tì OiRG $0234 

0234 

20D4E1 

70 BSR'v'E JSR $E1D4 

0237 

20FDRE 

30 JSR $REFD 

023R 

202001 

90 JSR GETWRD 

023D 

R514 

100 LDR $14 

C23F 

43 

110 PHR 

0240 

R515 

120 LDR $15 
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C242 

48 

1.30 

PHA 


C243 

20FHAE 

140 

JSR 

TAPPE 

C246 

202CC1 

150 

JSR 

GETWRD 

C243 

8614 

160 

LDX 

$14 

C24B 

A415 

170 

LEV 

$15 

C24II, 

68 

180 

PLA 


C24E 

8515 

190 

STA 

$15 

C250 

68 

200 

PLA 


C251 

8514 

210 

STA 

$14 

C253 

A314 

220 

LEA 

#$14 

C255 

4C5FE1 

230 

JMP 

$E15F 

C258 


240 

END 


TOTAL. 

ERRORS 

IH FI 

LE - 

— 0 

GETWRD 


CI 2 

:c 


BSAVE 


C23 

14 


total 

number 

of sm robe l 

s - 2 


BSAVE: note sull’uso 

BSAVE richiede sempre un indirizzo secondario, che normalmente sarà 2. L’o¬ 
missione dell’indirizzo secondario produrrà un SYNTAX ERROR. Notate anche 
che non c’è controllo sul fatto che l’indirizzo finale sia effettivamente seguente quel¬ 
lo iniziale. 

La sintassi corretta per BSAVE è: 

BSAVE <“nome file”>, dispositivo>, indirizzo secondario>, Cinizio dell’area 
di memoria >, <fine dell’arca di memoria > 


SEZIONE 6: BLOAD e BVERIFY 

Una volta salvata un’area di memoria su nastro o disco, sarebbe bello poterla re¬ 
cuperare. Questo è possibile con il comando BLOAD. Quasi la stessa routine che 
esegue BLOAD può venir usata per eseguire BVERIFY, che controlla se un’area 
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di memoria è stata salvata correttamente confrontando ciò che è stato salvato con 
l’area da cui è stato tratto. 

BLOAD/BVERIFY: listing, in linguaggio assemblatore 


10 

PRT 

20 

SYM 

25 

GETWRD = SCI; 

30 

CIRO $0061 

40 

WRD BLOAD-1.: 

50 

ORE SC2F2! 

60 

E!VER UBA #1 

70 

BYT $20 

80 

BLOAD LDR #0 

90 

STA $A 

100 

JSR SE1D4 

110 

JSR SAEFD 

120 

JSR GETWRD 

130 

LDR $A 

140 

LDX $14 

150 

LDY $15 

160 

Jf'IP $E175 

170 

END 


END 


100 160: è il nocciolo della routine e le due sezioni precedenti possono venir com¬ 
prese solo dopo questa. Le linee saltano alla routine KERNAL che ricava i para¬ 
metri per il file e chiamano GETWRD per ottenere l’indirizzo d’inizio dell’area di 
memoria in cui dev’essere caricato il codice salvayto. Il contenuto originale dell’ac¬ 
cumulatore, che indica se dev’essere eseguito BLOAD o BVERIFY, viene ripristi¬ 
nato col risultato di GETWRD e viene chiamata la routine del KERNAL per il ca¬ 
ricamento. 

60-90: queste linee determinano il valore nell’accumulatore quando viene chiamata 
la routine di caricamento: 1 indicherà una verifica e 0 un caricamento. Se viene 
chiamato BLOAD, nell’accumulatore viene caricato uno zero. Se invece viene 
chiamato BVERIFY, si carica 1 nell’accumulatore e il byte seguente del program¬ 
ma (messo li da una direttiva BYT assembler) viene interpretato come codice ope¬ 
rativo di un’istruzione a tre byte con i due byte dell’istruzione LDA#0 come ope¬ 
rando. Tutto ciò è ovviamente privo di senso, ma l’istruzione che viene riconosciuta 
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è un test su un bit che non provoca modifiche se non su un paio di fiag della CPU 
che noi non usiamo. Ciò significa che l’istruzione in linea 60 viene superata molto 
più velocemente ed economicamente che se si fosse fatto un salto — l’istruzione 
scompare semplicemente quando è affrontata in questo modo. 


BLOAD/BVERIFY: listing completamente assemblato 


add. 

data 

sou.rce code 

0 


10 

PRT 

0 


20 

SVM 

0 


25 

GETWRD * $C12C 

0 


30 

ORO $C061 

C061 

F4C2F1 

40 

WRD BLORD-1.BVER-1 

C065 


50 

ORO $C2F2 

C2F2 

R901 

60 

BVER LDR #1 

C2F4 

2C 

78 

BVT $2C 

C2F5 

R900 

80 

BLORD LDR «0 

C2F7 

850R 

90 

STR $R 

C2F9 

20D4E1 

100 

JSR $E1D4 

C2FC 

20FBRE 

110 

•JSR $REFD 

C2FF 

202CC1 

120 

JSR GETWRD 

C302 

R50R 

130 

LDR $R 

C304 

R614 

140 

LDX $14 

C306 

R413 

150 

LDV $15 

C308 

4C75E1 

160 

JMP $E175 

C30B 


170 

END 

TOTAL 

. ERRORS 

IN FILE-0 


GETWRD 

BVER 

BLORD 

total rmtviber 


C12C 

C2F2 

C2F5 

of symbols 


BLOAD/BVERIFY: note sull’uso 

Ancora una volta si deve usare un indirizzo secondario, che dovrebbe essere ze¬ 
ro. BLOAD ricaricherà a partire dall’indirizzo in memoria da voi specificato. BVE- 
RIFY verificherà l’area di memoria corretta, non importa quale indirizzo immettia¬ 
te — comunque è necessario un indirizzo fittizio. 
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La sintassi corretta per BLOAD è: 


BLOAD <“nome file”>, <dispositivo>, Cindirizzo secondario, = 0 >, <inizio del¬ 
l’area in cui caricare > 

La sintassi corretta per BVERIFY è: 

BVERIFY <“nome file” >, dispositivo >, <indirizzo secondario, = 0 >, <valore 
fittizio >. 


SEZIONE 7: MOVE 


Quello che state per immettere, sebbene a prima vista possa sembrare un po’ 
scialbo, è uno dei comandi più flessibili che si possano aggiungere al BASIC. MO¬ 
VE vi permette di specificare un’area di memoria e quindi spostarla indicando un 
nuovo punto d’inizio per quel blocco di memoria. Notate che le aree non vengono 
scambiate fra loro, al termine avrete due copie del blocco originale. Il comando può 
servire ai programmatori in linguaggio macchina che desiderano rilocare una routi¬ 
ne senza doverla salvare e ricaricare. Può anche essere usata per manipolare lo 
schermo copiandone aree da un luogo ad un altro. La routine è più lunga della me¬ 
dia fin qui incontrata, ma è veramente molto semplice come esecuzione. 

MOVE: listing in linguaggio assemblatore 


10 

20 

30 

40 

50 

60 

70 


F'RT 

GETWRD = $C12C 
SVM 

ORO $C055 
URLI MOVE-1 
ORO $C30B 

i BLOCK MOVE OF MEMORY -■ NO PP 
RGRIHST MOVINO VITAL SECTIONS 
; SYNTRX OF COMMRND "MOVE fil.fì 


OTETCIOH 

80 


160 




30 

; WHERE Al - ORIGINAI. HDD RE SE 

100 

; A2 = FINAL ADDRESS 

110 

L. - LENGHT OF BLOCK 

120 

RESO NOTE 32K BLOCKS MAX 

130 

NEWADD = $61 

140 

OLDADD = HEWABD+2 

150 

LENGHT = $14 

160 

: SUBROUTIHE TO DECREMEHT * 

EST LEMGHT 

170 

DECLEH LDA LENGHT 

ISO 

BHE LBL000 

190 

DEC LENGHT+1 

200 

LBL000 DEC LENGHT 

210 

LDA LENGHT 

220 

ORA LENGHT +1 

230 

RTS 

240 

; MAIN ROUTINE 

250 

MOVE JSR GETNRD 

260 

LDA $14 

270 

PHR 

280 

LDA $15 

2.90 

F'HA 

300 

JSR $AEFD 

310 

JSR GETNRD 

320 

LDA $14 

330 

PHA 

340 

LDA $15 

350 

PHR 

360 

JSR $REFD 

370 

JSR GETNRD 

380 

; DECIDE WHICH DIRECTION TO 

OVE IH 

390 

LDV #3 

400 

LBL001 PLA 

410 

STA NEWADD.V 

420 

DEV 

430 

BPL LBLO01 

440 

LDA LENGHT 

450 

ORA LENGHT+1 

460 

BEO LBL002 

470 

LDA NEWADD+1 

480 

CMF' OLDADD+1 

490 

BCC MVEDWN 

500 

BNE MVEUP 

510 

LDA NEWADD 

520 

CMP OLDADD 

530 

BCC MVEDWN 






340 

; MOVE BLOCK UPWfìRBS IN MEMORI 

530 

MVEUP GLB 

560 

CLC 

570 

LDfl NEW9DB 

530 

RBC LENGHT 

590 

STR NEWRBB 

600 

LBfl NEWRBD+1 

610 

RBC LENGHT +1 

620 

STR NEWRBB+1 

630 

CLC 

640 

LBfl OLDRBD 

650 

RBC LENGHT 

660 

STR OLDRBB 

670 

LBR OLHRDB+1 

680 

RBC LENGHT+1 

690 

STR OLDRDB+1 

700 

LBV #0 

710 

LBL003 LBR <OLDRDB).Y 

720 

STR (NEWRBB).V 

730 

TVR 

740 

BNE LBL004 

750 

DEC OLDRDD+1 

760 

DEC NEWRBB+1 

770 

LBL804 BEV 

730 

JSR BECLEN 

790 

BNE LBL003 

800 

LBL002 RTS 

810 

MOVE BLOCK DOWN THE MEMORY 

820 

MVEDWN LBV #0 

830 

LEL005 LDfl '(OLDRBD). V 

840 

STA (NEWRBB).V 

850 

IHV 

860 

BNE LBL006 

1 . 7 ; 70 

INC OLBRBB+1 

880 

INC NEWflBD+1 

890 

LBL006 JSR BECLEN 

900 

BNE LBL005 

910 

RTS 

HD 
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Commento 


160-230: quando specificate un’area di memoria da spostare con MOVE, ovvia¬ 
mente essa avrà una certa lunghezza. Lo scopo di queste linee è di decrementare 
una variabile chiamata LENGTH per tener conto di quanta parte del blocco é sta¬ 
ta finora trasferita. LENGTH è in realtà una variabile a due byte e le linee control¬ 
lano se il byte basso è zero per decidere se decrementare solo il byte basso oppure 
entrambi — vengono decrementati entrambi se il byte basso vale zero per rappre¬ 
sentare un riporto. 

240-370: i tre parametri per l’indirizzo d’inizio, fine e nuovo inizio vengono ricavati 
da GETWRD. 

380-530: prima di eseguire una MOVE dobbiamo sapere se la destinazione è su o 
giù lungo la memoria. Se è ‘giù’ (cioè negativa in termini di indirizzo) dovremo ini¬ 
ziare a copiare l’area dal basso in modo che se le due aree si sovrappongono, al 
momento del contatto fra area di destinazione ed area sorgente non ci sia più biso¬ 
gno dei dati all’inizio dell’area sorgente. Vale l’opposto quando l’area di destinazio¬ 
ne è precedente in memoria rispetto all’area sorgente. Quindi se desiderassimo spo¬ 
stare un blocco di memoria di un byte più avanti inizieremmo a trasferire un byte in 
avanti l’ultimo byte dell’area sorgente. Cominciare all’inizio dell’area sorgente si¬ 
gnificherebbe che il primo byte verrebbe posto nella locazione del secondo, poi il 
secondo in quella del terzo e cosi via copiando lo stesso carattere nell’intero blocco 
di destinazione. Le linee fra 470 e 530 eseguono un confronto a 16 bit fra i due in¬ 
dirizzi iniziali e saltano a MVEDWN se l’indirizzo di destinazione è inferiore all’in¬ 
dirizzo iniziale sorgente, altrimenti si esegue MOVEUP. 


550-690: è l’inizio della routine per spostare un blocco in memoria verso l’alto. 
Queste lince ricavano gli indirizzi finali di ciascun blocco e li memorizzano in NE 
WADD ed OLDADD, che hanno in precedenza contenuto gli indirizzi iniziali. 

700-800: usando il registro Y per indicizzare MOVE, queste linee iniziano a spo¬ 
stare i byte dall’indirizzo specificato in OLDADD più il contenuto del registro Y 
all’indirizzo specificato da NEWADD più il registro Y. Il registro Y viene decre- 
mentato ad ogni trasferimento ed ogni volta che il contenuto di Y raggiunge zero i 
byte alti di OLDADD e NEWADD vengono decrementati di uno per accedere ad 
un nuovo blocco di 256 byte. Dopo ogni decremento del registro Y viene eseguito 
un salto alla subroutine DECLEN, che stabilisce se è stato trasferito l’intero bloc¬ 
co. Se si, verrà posto a zero il flag di zero e si raggiungerà la linea 800, terminando 
la routine. 
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810-910: questa è la routine che sposta un blocco verso il basso. È più semplice 
poiché il contenuto di NEWDADD ed OLDADD può essere iasciato puntare all’i¬ 
nizio dei rispettivi blocchi. Oltre a questo, la sola vera differenza fra le due routine è 
che il registro Y viene incrementato e non decrementato. 


MOVE: listing completamente assemblato 


add. 

0 

0 

0 

0 ' 

C055 
C057 
C30B 
- NO 


10 FRI 

20 GETWRD = f-C 12C 
30 SVM 

40 ORO *C055 
17C3 58 HRD MOVE-1 

60 ORO *C30B 

70 ; BLOCK MOVE OF MEMORY 
PROTETCION AGHIMSI MOVINO VITAL SE 


CTIONS 


C30B 


80 

OVE fll 

.R2.L' 


C30B 


90 

ADDRESS 


C30B 


100 

RESS 



C30B 


110 

BLOCK 



C30B 


120 

S MAX 



C30B 


130 

C30B 


140 

C30B 


150 

C30B 


160 

MENI & 

1 TEST 

LENGHT 

C30B 

A514 

170 

C30D 

D802 

180 

C30F 

C615 

1.90 

C311 

C614 

200 

C313 

R514 

21.0 

C315 

0515 

220 

C317 

68 

230 

C318 


240 

C318 

202CC1 

250 

C31B 

A 514 

260 

C31D 

48 

270 

C31E 

R515 

280 

C320 

48 

290 
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SYNTRX OF COMMfìND 'M 

WHERE fll = ORIGINAI.. 

; A2 - FINAL ADII 

J L = LFUGHI OF 

; AL.SO NOTE 32K BLOCK 

NEURDD = *61 
OLDADD = NEWRDD+2 
LENGHT = *14 

SUBROUTI.HE TO DECRE 

DECLEN LBR LENGHT 
BNE LBL000 
DEC LENGHT +1 
LBL000 DEC LENGHT 
LDA LENGHT 
ORA LENGHT+1 
PTS 

: MAIN ROUTINE 
MOVE JSR GETWRD 
LDA *14 
PAR 

LDA *15 
PHR 







0321 

20FDRE 

300 

JSR 

TREFJj 

0324 

202001 

310 

JSR 

GETWRD 

032? 

851.4 

320 

LDR 

*14 

0329 

48 

330 

PHR 


0328 

0515 

340 

LII0 

$15 

C32C 

48 

350 

PHR 


032D 

20FDRE 

360 

JSR 

$REFD 

0330 

202001 

370 

JSR 

GETWRD 

0333 


380 

; DECI Tip UHI OH DIRECT 

IOH IO PIOVE IH 




0333 

0083 

390 

LDV 

#3 

0335 

68 

400 

LBL001 PI. R 

0336 

996 100 

410 

STR 

NEWflDD.V 

0339 

8 8 

420 

DEV 


033R 

10F9 

430 

BPL 

LBL.001 

0330 

8514 

440 

LD0 

LENGHT 

C33E 

0515 

450 

OR0 

LENGHT+1 

0340 

F03O 

460 

BEQ 

LBL002 

0342 

0562 

470 

LD0 

NEWRDD+1 

0344 

0564 

480 

CMP 

0LD8DD+1 

0346 

9037 

490 

ECO 

MVEDWN 

C348 

D906 

500 

BHE 

MVEUP 

034h 

856.1 

510 

LD0 

NEW8DD 

0340 

0563 

520 

CMP 

OLDRDD 

034E 

902F 

530 

BCC 

MVEDWN 

0350 


540 

; MOVE BLOCK UPWRRDS 

IN MEMORY 




0350 

B8 

550 

MVEUP OLD 

0351 

18 

560 

CLC 


0352 

8561 

570 

LDR 

NEWflDD 

0354 

6514 

5 pl"1 

8 DO 

LENGHT 

1 

8561 

590 

STR 

NEWflDD 

0358 

0562 

600 

LD8 

NEWADD+1 

0358 

6515 

610 

8 DO 

LENGHT+1 

0350 

8562 

620i 

STR 

NEWRDD+1 

C35E 

18 

630 

CLO 


035F 

8563 

6401 

L.D8 

OLDRDD 

0361 

6514 

650 

RDC 

LENGHT 

0363 

8563 

660 

STR 

OLDRDD 

0365 

H564 

670 

LDR 

OLDflDD+1 

0367 

6515 

630 

RDC 

LENGHT+1 

0369 

8564 

690 

STR 

OL.DRDD +1 

036B 

8080 

790 

LDV 

#0 

036D 

B163 

718 

LEU 

108 LDR <OLDRDD>.V 

036F 

3161 

720 

STA 

( NEWH 1X1.0 . V 

0371 

98 

730 

TVR 


0372 

1100 4 

740 

BHE 

L.BL004 








C374 

C664 

750 

DEC OLDRDD+1 

C376 

C662 

7 60 

DEC NEWRDD+1 

C378 

88 

770 

LBL084 DEV 

C379 

209BC3 

780 

JSR DECLEH 

C37C 

D8EF 

790 

BHE LBL.003 

C37E 

60 

800 

LBL002 RTS 

C37F 


810 

MOVE BLOCK DOWN 

MEMORY 



C37F 

A000 

820 

MVEDl'JN LDV #0 

0381 

B163 

830 

LBL085 L.DR < 01. BAD D 

C383 

9161 

840 

STO CNEWfìDDJ.V 

0385 

08 

850 

IHV 

C386 

£1004 

860 

BHE LBL006 

C388 

E664 

870 

IHO OLDRDD+1 

C38R 

E662 

880 

IHO HEWRDD+1 

0380 

200BO3 

890 

LBL006 JSR DECLEH 

C38F 

D0F0 

900 

BHE LBL005 

0391 

60 

910 

RTS 

TOTAL 

. ERRORS 

IH FILE-0 


GETWRD 

0120 

HEWRDD 

61 

OLDRDD 

63 

LF.HGHT 

14 

DECLEH 

030B 

LBL000 

0311 

MOVE 

0318 

LBL001 

0335 

MVEUP 

0350 

LBL003 

C36D 

LBL004 

0378 

LBL002 

037E 

MVEDWN 

037F 

LBL005 

0381 

LBL006 

0380 

total nufiber 

of syrobots — 


MOVE: note sull’uso 

L’uso di MOVE é abbastanza evidente, ma ricordate che non c’è protezione se 
fate qualche stupidaggine, tipo scrivere accidentalmente sull’interprete (quando è in 
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^ - 

RAM) o su variabili di sistema o nell’area di programma o... Assicuratevi di sapere 
cosa state trasferendo e cosa c’è nel punto di destinazione PRIMA di fare il movi¬ 
mento. 

La sintassi corretta per MOVE è: 

MOVE <indirizzo destinazione>, indirizzo di partenza >, lunghezza > 


SEZIONE 8: FILL 

Dopo aver progettato MOVE, il logico sviluppo era FILL, che viene usata per 
riempire una specifica area di memoria con un certo valore. Può venir usata per pu¬ 
lire aree di memoria, aree dello schermo, per cambiare le caratteristiche cromatiche 
dello schermo riempiendo parti del file attributi. Il vero lavoro è compiuto da una 
chiamata alla routine MVEDWN in MOVE, quindi non c’è molto da spiegare sul 
funzionamento del comando in sè. 


FILL: listing in linguaggio assemblatore 


10 

F'RT 

20 

SVH 

30 

URO $L067 

40 

WRD FILL-1 

50 

GETWRD = $C12C 

60 

MVEDWN = $C37F 

70 

DECLEN = $C30B 

80 

npfì $0392 

30 

FILL JSR GETWRD 

100 

LDfl $14 

110 

F'Hfl 

120 

LDR $15 

130 

F'HH 

140 

JSR $flEFD 
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150 

JSR 

GETURD 

160 

LDFl 

$14 

170 

PUR 


180 

LDR 

$15 

130 

F'HFI 


200 

JSR 

$REFD 

210 

JSR 

GETURD 

220 

LDR 

$13 

230 

BUE 

IQERR 

240 

LUX 

$14 

250 

FLR 


260 

STR 

$15 ' 

270 

PLR 


280 

STR 

$14 

230 

PLR 


300 

STR 

$62 

310 

STR 

$64 

320 

PLR 


330 

STR 

$61 

340 

STR 

$63 

350 

INC 

$61 

360 

BNE 

LBL000 

370 

INC 

$62 

380 

LBL00O LDY 1*0 

390 

TXR 


400 

STR 

($63).V 

410 

JSR 

DECLEN 

420 

BEQ 

EXIT 

430 

JMP 

MVEDWN 

440 

IQERR JMP $B2< 

430 

EXIT RTS 

460 

END 



END 


Commento 

100 230: queste linee ottengono i tre paramentri dell’indirizzo iniziale, della lun¬ 
ghezza e del valore da porre in ciascun byte del blocco. Viene generato un errore 
del tipo ‘ILLEGAL QUANTITY’ se il valore da caricare è maggiore di 255. 


240: il valore da salvare nel blocco viene posto nel registro X. 


168 





250-280: la lunghezza del blocco è memorizzata nelle locazioni 14-15 esadecimali, 
dove la routine move si aspetta di trovarli. 

290-370: l’indirizzo d’inizio viene posto in OLDADD e l’indirizzo iniziale più uno 
in NEW AD D. 

380-400: il valore da usare nel riempire il blocco è posto nel primo byte del blocco. 

410-420: la lunghezza é decrementata di uno e se la lunghezza era solo uno la rou 
tine termina: 

430: chiama MVEDWN. Se ricordate qualcosa del commento su MOVE saprete 
che spostare un byte verso l’alto in memoria implica una chiamata a MOVEUP. 
Chiamare MOVDWN allo scopo ha la tremenda conseguenza di rovinare proprio i 
byte da trasferire, riscrivendo costantemente il byte uno nel byte due, il due nel tre e 
cosi via riempiendo l’intera area con lo stesso valore. 

In MOVE sarebbe stato un disastro, mentre è proprio ciò che vogliamo in FILL. 


FILE: listing completamente assemblato 


add. 

data 

souree code 

0 


10 PRT 

0 


20 SVM 

0 


30 ORO $C067 

C067 

91C3 

40 WRB FILL-1 

C069 


50 GETWRD = $C12C 

C069 


60 MVEDWN = $C37F 

C069 


70 DECLEN = $C30B 

C069 


80 ORO $C392 

C392 

202CC1 

90 FILL JSR GETWRD 

C395 

A314 

100 I..DA $14 

C397 

48 

110 PHA 

C398 

A315 

120 LDA $15 

C39R 

48 

130 PHA 

C39E 

20FDAE 

140 JSR $REFB 

C39E 

202CC1 

150 JSR GETWRD 

C3R1 

A314 

160 LDA $14 

C3R3 

48 

170 PHA 

C3R4 

A513 

180 LDA $15 

C3RS 

48 

190 F'HR 
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C3R7 

20FDRE 

200 

JSR 

$REFD 

C3RR 

202CC1 

210 

JSR 

GETWRD 

C3RD 

R515 

220 

LDR 

$15 

C3RF 

D025 

230 

BUE 

IQERR 

C3B1 

R614 

240 

LUX 

$14 

C3B3 

68 

250 

F'Lfl 


C3B4 

8515 

260 

STR 

$15 

C3B6 

68 

270 

PLR 


C3B7 

8514 

280 

STR 

$14 

C3B9 

68 

296 

PLR 


C3BR 

8562 

300 

STR 

$62 

C3BC 

8564 

310 

STR 

$64 

C3BE 

68 

320 

PLR 


C3BF 

8561 

330 

STR 

$61 

C3C1 

8563 

340 

STR 

$63 

C3C3 

E661 

350 

INC 

$61 

C3C5 

D002 

360 

BNE 

LBL000 

C3C7 

E662 

370 

INC 

$62 

C3C9 

R000 

380 

LBL000 LDV 

C3CB 

8R 

390 

TXR 


C3CC 

9163 

400 

STR 

<$63>.' 

C3CE 

200BC3 

410 

•JSR 

DECLEN 

C3D1 

F006 

420 

BEQ 

EXIT 

C3D3 

4C7FC3 

430 

JMP 

MVEDWN 

C3D6 

4C48B2 

440 

IQERR JMP : 

C3D9 

60 

450 

EXIT RTS 

C3DR 


460 

END 


TOTRL ERRORS 

IN FILE - 

-0 


GETWRD 

C12C 

MVEDWN 

P37F 

DECLEN 

C30B 

FILL 

C392 

LBL000 

C3C9 

IQERR 

C3D6 

EXIT 

C3D9 

tota1 number 

of syrnbol 


7 


FILL: note sull’uso 

Ancora una volta, il comando non protegge dalle stupidaggini. 
La sintassi corretta per FILL è: 

FILL indirizzo iniziale>, lunghezza >, evalore del byte> 
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SEZIONE 9: RESTORE 


Potreste pensare, vedendo il titolo della sezione, che siamo usciti di senno. Non 
c’è già un comando RESTORE nel BASIC normale? La risposta è ovviamente si, 
ma una delle possibilità affascinanti aperte dallo spostamento dell’interprete in 
RAM è che non solo possiamo aggiungere nuovi comandi, ma anche cambiare 
quelli esistenti. 

RESTORE è un candidato principe a questo cambiamento. La normale routine 
di RESTORE risale al tempo in cui i computer erano conservati in grandi sale con 
aria condizionata e leggevano i loro programmi e dati da schede perforate. Ora il 
fatto è che con una pila di schede potete solo leggere dall’inizio. Se volete trovare la 
scheda n. 97, dovete iniziare dalla uno e leggervi tutte le 96 schede che non vi inte¬ 
ressano. Non c’è alcun motivo per cui debba essere così anche su un moderno mi¬ 
crocomputer, tuttavia pare che si sia radicata la convinzione che l’unico modo di 
trattare le frasi DATA sia quello di cominciare all’inizio e proseguire fino al punto 
voluto. 

In questa sezione modificheremo il normale comando RESTORE in modo che 
possiate ripristinare un numero di linea specificato e prelevare il primo dato che se¬ 
gue DATA (il normale comando RESTORE può venir usato ancora se necessa¬ 
rio). In questo modo potete ordinare i vostri dati in tabelle separate e saltare esatta¬ 
mente alla tabella che volete, risparmiando considerevolmente tempo per accedere 
a singoli elementi di frasi DATA rendendo inoltre il funzionamento del vostro 
programma più trasparente. 


RESTORE: listing in linguaggio assemblatore 


10 

PRT 

20 

SYM 

30 

ORG $C132 

40 

.: ALTER TO RESTORE TO LINE NO! 

' 50 

; TO USE TRANSFER ROM TO RAM i 

ND ALTER 

RESTORE VECTOR TO 'START-1' 

60 

; RESTORE VECTOR AT $A022 

70 

GETWRD = $C12C 

80 

START LDR «0 

30 

STA $14 
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100 

STO $15 

1.10 

.JSR $73 

120 

LDR $7fl 

130 

BNE LBL000 

140 

DEC $7B 

150 

LEL000 DEC $7R 

160 

BCS LBL001 

1.70 

JSR GETWRD 

180 

LBL001 JSR $0613 

190 

LDR $14 

200 

GRR $15 

210 

BEQ LBL002 

220 

BCC ULERR 

230 

LBL002 LDR $5F 

240 

LEV $60 

250 

SEC 

260 

SBC #1 

270 

jriF $0824 

280 

IJLERR JMP $R3E3 

290 

END 


END 


Commento 

80-100: ìnizializzazione della locazione in cui l’interprete memorizzerà poi un nu¬ 
mero di linea. 

110-150: la chiamata a subroutine preleva il carattere successivo del testo BASIC 
e le altre linee supportano il puntatore di testo che è stato ora posto nella posizione 
seguente a quel carattere. 

160: se il carattere prelevato dalla routine alla locazione 73 esadecimale è una ci¬ 
fra, verrà posto uguale a uno il flag di riporto. Se non lo è, viene fatto un salto oltre 
GETWRD, poiché la routine supporrà che debba venir eseguito un normale RE- 
STORE e non si debba reperire alcun numero di linea. Se desiderate usare un’e¬ 
spressione dopo RESTORE dovrete precederla con 00+ o con 01 * in modo da as¬ 
sicurare la chiamata a GETWRD. 
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180: questa routine trova l’indirizzo del numero di linea ottenuto da GETWRD o, 
se GETWRD non è stata chiamata, della prima linea nel programma BASIC. 

190-210: se l’area di memorizzazione del numero di linea contiene zero, si suppone 
che sia stata eseguita una RESTORE normale e non si fanno controlli sui parame¬ 
tri. 

220: se, al ritorno da A613, il flag di riporto è a zero, il numero di linea referenziato 
non è stato trovato e viene segnalato un errore di tipo ‘UNDEFINED LINE’ 

230-270: l’indirizzo della linea trovata viene prelevato dalle locazioni esadecimali 
5F-60, da esso viene sottratto uno e l’esecuzione torna alla normale routine di RE¬ 
STORE, col puntatore ai dati però rivolto ora alla linea specificata. 


RESTORE: listing completamente assemblato 


add. 

data 

scuro? code 

0 


10 PRT 

0 


20 SVM 

0 


30 ÒRO $C132 

CI 32 


40 1 ALTER TO RESTORE TO 

LINE 

NOS. 


CI 32 


50 1 T0 USE TRANSFER ROM 

TO REM FINII fll.TER RESTORE VECTOR TO 'STAR 
T-l' 

CI 32 
022 


60 ; RESTORE VECTOR AT $A 

CI 32 


70 GETWRD - $C12C 

CI 32 

A300 

30 START LDR #0 

CI 34 

8514 

90 STA $14 

C136 

8515 

100 STA $15 

CI 38 

207300 

110 JSR $73 

C13B 

A57R 

120 LDA $7A 

CI 3B 

D002 

130 BNE LBL000 

C13F 

C67B 

140 DEC $7E 

C141 

C67R 

150 LBL.000 DEC $7A 

CI 43 

B003 

160 BCS LBL001 

CI 45 

202CC1 

170 JSR GETWRD 

CI 48 

2013R6 

180 LBL001 JSR $R613 


173 



C14B 

FISI 4 

190 

LDR 

$14 

C14B 

0515 

200 

ORR 

$15 

C14F 

F002 

210 

BEQ 

LBL002 

C151 

900R 

220 

BCC 

ULERR 

C153 

R55F 

230 

LBL002 L.BR $5F 

CI 55 

R460 

240 

LDV 

$60 

C157 

38 

250 

SEC 


CI 58 

E901 

260 

SBC 

#1 

C15R 

4C24R8 

270 

JMP 

$R824 

C15D 

4CE3R8 

280 

ULERR JMP $R8E3 

CI 60 


290 

END 



TOTRL ERRORS IH FILE - 8 


GETWRD 

C12C 

STRRT 

CI 32 

LBL000 

C141 

LBL001 

CMS 

LBL002 

CI 53 

ULERR 

C15D 

tota l ■m.i.mber 

of syrnl 
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RESTORE: note sull’uso 

RESTORE può venir usata normalmente se non si specifica un parametro o si 
pone zero come parametro. Una limitazione è che la RESTORE estesa lavorerà so¬ 
lo su parametri di più di una cifra. Se desiderate ripristinare una linea con numero 
inferiore a 10, dovrete aggiungere uno zero iniziale al numero. 

La sintassi corretta per RESTORE è, nella forma estesa: 

RESTORE numero di linea di almeno due cifre. 

Prima di usare la RESTORE estesa si deve eseguire un’ulteriore modifica al pro¬ 
gramma BASIC Extender II. Si devono aggiungere le seguenti linee: 

250 REM ALTER RESTORE VECTOR 

251 POKE 40996,49: POKE 40997,193 


La routine in linguaggio macchina dovrebbe essere assemblata nel file macchina 
dell’estcnder e delle nuove routine e quindi caricata in memoria usando il program¬ 
ma BASIC extender II appena modificato. 
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CAPITOLO 10 


FUNZIONI BASIC 


Le funzioni BASIC, come ricorderete, ricevono da parte dell’interprete un tratta¬ 
mento separato, essendo identificate durante l’esame di un programma, dal fatto 
che esse occupano un ben specificato segmento della tavola delle parole chiave. La 
principale differenza fra le parole chiave per azioni e quelle per funzioni è che le 
funzioni richiederanno la valutazione di qualcosa, per cui c’é un’intera serie di rou¬ 
tine interprete speciali. Di fatto circa la metà dell’interprete è dedicato al problema 
di valutare espressioni in un modo o nell’altro. L’esecuzione di una parola funzione 
non è semplicemente una faccenda di salti a singole routine macchina in memoria. 

La routine macchina data qui, sebbene corta, usa routine dell’interprete che sono 
di gran lunga più complesse che quelle usate dalle parole azioni. Se queste routine 
non fossero già presenti nell’interprete sarebbe stata un’impresa enorme definire 
nuove funzioni. 


Valutatorc di espressioni esteso: listing in linguaggio assemblatore 


10 

20 

30 

40 

50 


PRT 

SVM 

ORO $C44R 

; EXTEND EXPRESSION EVflLURTGR 
.: T0 USE POKE $RFRfl WITH 'JPIP 


FUNEVL' 


68 

70 

80 

90 

100 


FUNEVL CPX #$3F 
BCC LBL002 
CPX #$98 
BCC LBL001 
CPX #$9F 
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110 

BC3 LEL001 

120 

■JSR $REF1 

130 

PLR 

140 

TRX 

150 

CPX #$98 

160 

BEQ BEEK 

170 

CPX #$3R 

180 

BEQ VP03 

190 

BNE VflRPTR 

200 

LBL001 JMP $RFB1 

210 

LBL002 JMP $RFD1 

220 

VRRPTR LBR 72 

230 

LEV 71 

240 

LBL003 JSR $B331 

250 

LBR $66 

260 

BPL LBL004 

270 

LEV #C0NST/256 

280 

LBR #CONST-C0NST, 

290 

JSR $BR3C 

300 

JSR $B86R 

310 

LBL004 JMP $RD8B 

320 

VPOS SEC 

330 

JSR $FFF0 

340 

TXR 

350 

TRY 

360 

LBR #$0 

370 

JMP LBL.008 

3S0 

; PERFORM BEEK 

390 

BEEK JSR $B7F7 

400 

LDV #1 

410 

LBR ($14).Y 

420 

PHR 

430 

DEV 

440 

LDR ($14).V 

450 

TflV 

460 

PLR 

470 

JMP LBL003 

480 

CONST B't'T 145.0.1 

490 

END 


END 


60-70: controlla se il token è quello di una normale funzione numerica. In questo 
caso si chiama il valutatore normale. 
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80-110: si controlla se la funzione il cui token è nel registro X è nell’intervallo delle 
nostre tre nuove funzioni, altrimenti si chiama il valutatore di stringhe funzioni. 

120: questa routine dell’interprete valuta un’espressione fra parentesi, cioè l’argo¬ 
mento della funzione. 

130-140: il valutatore di espressioni chiamato nella linea precedente pone il token 
sulla cima della pila. Ora viene recuperato e memorizzato nel registro X. 

150-190: a questo punto il token dev’essere quello di una delle nostre nuove funzio¬ 
ni, queste linee determinano quale e saltano alla routine appropriata. 

220-310: VARPTR: questa funzione restituisce un puntatore alla locazione in me¬ 
moria di ogni variabile il-cui nome sia posto fra parentesi come argomento. 


220-230: al ritorno dalla routine situata alla locazione AEF1, che valuta la variabi¬ 
le fra parentesi, l’indirizzo della variabile è contenuto nelle posizioni 47-48 esadeci- 
male (71-72 decimale). Il valore a due byte viene caricato in accumulatore e nel re¬ 
gistro Y. 


240: questo indirizzo viene ora inviato alla routine che converte questo numero in¬ 
tero in numero a virgola mobile. Questo è necessario poiché l’interprete si aspetta 
un numero in virgola mobile come risultato di una funzione, e lo tratterà di conse¬ 
guenza. 


250-300: sfortunatamente, il convertitore in virgola mobile cambierà un numero in¬ 
tero senza segno in uno a virgola mobile con segno. Ciò significa che i numeri supe¬ 
riori a 32767 risulteranno negativi, come ad es. avviene per la funzione FRE nel 
BASIC nonnaie. Se immettete FRE (0) quando non c’è un programma in memo¬ 
ria, verrà restituita una quantità negativa, a cui va aggiunto 65536 per avere il ri¬ 
sultato corretto. Queste linee controllano se c’è un segno meno memorizzato nel 
byte di segno dell’accumulatore #1 della virgola mobile (alla locazione 66 esadeci- 
male, in pagina zero). Se si trova un meno (cioè se il bit 7 vale uno), si carica in ac¬ 
cumulatore e nel registro Y l’indirizzo della variabile CONSTANT (linea 480), che 
in realtà è 65536 in virgola mobile. Questo valore viene ora posto nell’accumulato¬ 
re #2 della virgola mobile con una chiamata alla routine dell’interprete situata in 
BA8C (esadecimale) e sommato al valore in accumulatore #1 della virgola mobile 
da una chiamata alla routine posta in B86A. 
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310: si torna al valutatore di espressioni, che potrebbe essere ancora nella valuta¬ 
zione di un’espressione di cui VARPTR è solo una parte. 

320-370: YPOS: questa nuova funzione restituisce la posizione verticale del curso¬ 
re sullo schermo. È parallela alla normale funzione BASIC POS, che restituisce la 
posizione orizzontale del cursore. 

330: la routine del KERNAL che restituisce la posizione del cursore nei registri X 
ed Y. 

340-350: il contenuto del registro X viene memorizzato nel registro Y (il registro X 
conteneva originariamente la posizione verticale). 

360-370: l’accumulatore ed il registro Y contengono ora lo stesso valore. Si carica 
zero in accumulatore, fornendo cosi, nell’accumulatore e nel registro Y, un numero 
a 16 bit nell’intervallo 0-24 (i numeri delle linee sullo schermo). Questo intero a 16 
bit viene ora inviato alla routine situata a LBL003, che lo converte in numero a vir¬ 
gola mobile. 

390-470: DEEK: questa funzione restituisce un numero nell’intervallo 0-65535. È 
di fatto una PEEK doppia ed equivale alla frase in BASIC normale: PEEK (X) 
+ 256*PEEK (X+l). 

390: il parametro valutato dal valutatore di funzioni viene convertito in un intero 
con questa chiamata (PEEK e DEEK si rivolgono ad indirizzi interi). 

400-460: il valore restituito si dovrà trovare nei nostri vecchi amici 14-15 esadeci- 
mali. L’accumulatore ed il registro Y vengono caricati con questo valore e si salta a 
LBL003, restituendo così il contenuto dei due byte al valutatore di espressioni. 


Valutatore di espressioni esteso: listing completamente assemblato 


a dd. data 
0 
0 
0 


source code 
10 PRT 
20 SVN 

30 0RG $C44fl 
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C44R 

RLURTOR 

40 

; EXTEHD EXPRESSIOH 

C44R 


50 

TO USE POKE $RFRR 

TH 'JMP FUNEVL 



C44R 

E08F 

60 1 

-UNEVL CPX #$8F 

0440 

90 IR 

70 ] 

BCC LEL002 

C44E 

E098 

80 CPX #$98 

0450 

9013 

90 ] 

BCC LBL001 

C452 

E09F 

100 

CPX #$9F 

0454 

B00F 

110 

BCS LBL001 

C456 

20F1RE 

120 

JSR $REF1 

0459 

68 

130 

PLR 

C45R 

RR 

140 

TRX 

C45B 

E098 

150 

CPX #$98 

C45D 

F02F 

160 

BEO. DEEK 

C45F 

E09R 

170 

CPX #$9R 

C461 

F020 

180 

BEO VPOS 

0463 

B006 

190 

BNE VRRPTR 

0463 

4CB1RF 

200 

LBL001 JMP $RFB1 

C468 

4CD1RF 

210 

LBL002 JMP $RFH1 

C46B 

R543 

220 

VRRPTR LDR 72 

C46D 

R447 

230 

LDV 71 

C46F 

2091B3 

240 

LBL003 JSR $B391 

C472 

R366 

250 

LDR $66 

C474 

100R 

260 

BPL LBL004 

C476 

R0O4 

270 

LDV #COHST/256 

C478 

256 

R99E 

280 

LDR #CQNST-C0NST/25i 

C47R 

208CBR 

290 

JSR $BR8C 

C47B 

206RB8 

300 

JSR $B86R 

0480 

4C8DRD 

310 

LBL004 JMP $RD8D 

C483 

38 

320 

VPOS SEC 

C484 

20F0FF 

330 

JSR $FFF0 

0487 

8R 

340 

TXR 

0488 

R8 

350 

TRV 

0489 

R900 

360 

LDR #$0 

048B 

4C6FC4 

370 

JMP LBL003 

048E 


380 

; PERFORM DEEK 

C48E 

20F7B7 

390 

DEEK JSR $B7F7 

0491 

R001 

400 

LDV #1 

0493 

B114 

410 

LDR ($14 >.V 

0495 

48 

420 

PHR 

0496 

88 

430 

BEV 

0497 

B114 

440 

LDR ($14 >.V 

0499 

R8 

450 

TRV 

C49R 

68 

460 

PLR 

C49B 

4C6FC4 

470 

JMP LBL003 



C49E 910000 

430 CONST 

C4R3 

490 EHB 

TOTAL ERRORS 

IH FILE — 

FUNEVL 

C44H 

LBL001 

C465 

LBL002 

C468 

VARPTR 

C46B 

LBL003 

C46F 

LBL004 

C480 

VPOS 

C483 

DEEK 

C48E 

COHST 

C49E 

total mmber 

of symbols 
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VARPTR: note sull’uso 

Se si mette fra parentesi un’espressione invece di una variabile, il risultato é privo 
di significato e non dovrebbe venir usato per cambiamenti in memoria. Oltre a ciò 
la funzione può essere usata come scorciatoia per cambiare singoli caratteri in ar- 
rays di stringhe (evitando problemi di garbage collection e complesse funzioni strin¬ 
ga) o semplicemente per avere un’idea più precisa di cosa accade nell’area delle va¬ 
riabili. Come esempio dell’uso di VARPTR, immettete A%=10 in modo diretto, 
poi PRINT DEEK (VARPTR(A%)+1). Questo restituirà il valore di A%. 

Nel caso di stringhe, PEEK (VARPTR(AS)) restituirà la lunghezza di A$. 
DEEK(VARPTR(A$)+1) restituisce l’indirizzo inziale di A$ in memoria. 

La sintassi corretta per VARPTR è: 

VARPTR(<nome della variabile>) 

YPOS: note sull’uso 

Questa funzione è parallela a POS nel BASIC normale, compreso il fatto che la 
variabile fra parentesi è ignorata. 

La sintassi corretta per YPOS è: 

YPOS(<argomento fittizio>) 


DEEK: note sull’uso 

Molto simile a PEEK, eccetto che restituisce un valore a due byte. DEEK è par¬ 
ticolarmente utile per accedere ai valori memorizzati in registri a due byte usati dal 
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sistema, es. DEEK(43) restituisce l’indirizzo di inizio BASIC. 

La sintassi corretta per DEEK è: 

DEEK( Espressione >) 


Uso dell’estensore di funzioni 

Come per le parole chiave del BASIC esteso, questa routine deve essere assem 
blata sul file macchina che avete creato per includere l’estensore del BASIC e gli al¬ 
tri comandi. La routine potrebbe stare da sola senza interrompere il funzionamento 
del sistema se fosse caricata in memoria, ma non sareste in grado di creare i token 
per le nuove funzioni. 

Allo scopo di inserire la routine nel valutatore di funzioni esistente, la linea se¬ 
guente va aggiunta al vostro programma BASIC Extender II: 

224 DATA 173,175,76,174,175,74,175,175,196 


L’efTetto di questa linea è di piazzare nel valutatore di funzioni un salto alla no¬ 
stra routine macchina in modo simile a quanto fatto per la routine di esecuzione di 
parole azioni. 

Una volta fatta la modifica, il valutatore di funzioni può venir caricato, con gli 
altri comandi, dal programma BASIC Extender II. 
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CAPITOLO 11 

NUOVE FRONTIERE 


Quando iniziate a scrivere un libro di questo genere, buttate lì tutte le idee per 
routine che vorreste includere. Alcune si dimostrano eccessivamente estese quanto 
alla codifica, altre sembrano di scarso rilievo ad un’attenta considerazione. Alcune 
però si impongono come idee utili che non dovrebbero presentare troppe difficoltà 
nella loro realizzazione. Un’idea di questo genere che ci è venuta — lo ammettiamo: 
a notte fonda — è FAST, una routine che fa tesoro di RKILL rimuovendo i con¬ 
trolli che l'interprete fa per cercare gli spazi durante l’esecuzione dì un programma. 
Il 64 fu acceso, la routine immessa ed assemblata, aggiungendo due nuove parole 
FAST e SLOW (la seconda si limita a ripristinare lo stato normale delle cose). La 
routine venne in questo modo: 

FAST e SLOW: listing in linguaggio assemblatore 


10 

20 

30 

40 

45 

50 

60 

70 

30 

90 

100 

110 

120 

130 

140 

150 

160 


PRT 

SYM 

ORG $0057 

WRD FflST-1.SLQH-l 

ORG $C4R3 

SLOW LBY #0 

BYT $20 

FRST LEV #4 

LDX #0 

LEL000 LDR $E3AF.Y 
STA $30.X 
INX 
INY 

CPV #$B 
BCC LBL000 
RTS 
END 


END 
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Fu caricato il BASIC Extender e FAST venne messa in memoria. 

La memoria venne pulita e fu immesso un piccolo programma che eseguiva un 
grosso ciclo, impiegando in totale circa 57,75 secondi. Fu eseguita RKILL sul pro¬ 
gramma, rimuovendo tutti gli spazi poi fu dato FAST in modo diretto. Dal 64 nem¬ 
meno un sospiro, la routine stava ovviamente per funzionare fin dalla prima volta 
— un trionfo della pianificazione e progettazione accurata dei programmi. Il ciclo 
venne fatto eseguire ancora, con un cronometro nelle mani tremanti. 

Il risultato fu un tempo di 57,25 secondi, un miglioramento dello 0,89%! 


Non tutto ciò che si può fare in codice macchina vale la pena farlo, né tutto ciò 
che vale la pena fare è possibile. Al termine di questo libro ci è rimasta la sensazio¬ 
ne che ciò che abbiamo creato valesse la pena crearlo e che altre persone saranno 
in grado di farlo e di imparare da esso. Introducendo il programma Mastercode e le 
routine per le parole chiave (e comprendendoli) avrete compiuto, speriamo, un con¬ 
siderevole passo avanti nella comprensione del vostro 64 e del potenziale che offre 
per la programmazione in linguaggio macchina. Possano i vostri sforzi avere mag¬ 
gior successo di FAST. 
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APPENDICE A 

GENERATORE DELLE SOMME 
DI CONTROLLO 


Il programma che segue è quello usato per generare le tavole di controllo fornite 
insieme a ciascun modulo del programma Mastercode. La cifra di controllo per o- 
gni linea è un metodo quasi a prova d’errore di indicazione della correttezza di una 
linea. Il programma lavora sommando i valori di tutti i byte della linea, tornando a 
zero ogni volta che si raggiunge 255. Un carattere scorretto o omesso provocherà 
un cambiamento nella somma. Per far uso delle somme di controllo, immettete que¬ 
sto programma nel 64 prima di iniziare il programma Mastercode e poi date RUN 
63800 ogni volta che vorrete controllare un gruppo di linee che avete immesso, 
quindi confrontate il risultato con la tavola di controllo del modulo. Se c’è qualche 
differenza, la linea che avete immesso è diversa da quella del libro. Notate che gli 
spazi contano nel calcolo delle somme. 


63800 REM CHECKSUM PROGRAM 

63801 GOSUB 63810 

63802 GOSUB 63840 

63803 IF FL>=0 THEN 63802 

63804 EHB 

63810 DEFFH DEEKOO = PEEKOO+256#PEEK<X 

+ 1 ) 

63820 REM URTA FOR MAGHINE CODE 

63821 DATA *#* 

63822 DATA 165 , 252, 166,253, 133 , 020 , 134,0 
21,032,018 

63823 DATA 166,216,160,001,177,095,133,2 
54,240,013 

63824 DATA 200,177,095,133,252,200,177,0 
95,133,253 

63825 DATA 200,169,000,133,251,177,095,2 
40,006,024 

fi3826 DATA 101,251,200,208,244,096 
63827 DATA -1 
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63830 REM PUT DRTR IRTO MEMORV 

63831 Rii = 52992 

63832 RESTORE 

63833 RERIl T$: IF THEN 63833 

63834 READ T : IF T>=0 THEN F'OKE REM : 
RD = REi+1 : GOTO 63834 

63835 DE'v' « 3 : INT = "" : INPUT "OUTPUT 
DEVI CE NIJMBER "j DEV 

63836 IF DEV=1 OR DEV>4 THEN INPUT "FILE 
NRME ";IN$ 

6383? RS = CHR$ (13) : S# = 

" +r$ 

63838 RETURN 

63848 REM DO INI TIRI. ISRTION 

63841 FL = 9 = INPUT "FIRST LINE "j FL. : 
IF FL<0 THEN RETURN 

63842 LL = 65536 : INPUT "LfìST LINE L 
L 

63843 INPUT "MODULE NRME ";M$ 

63844 IF DEV=1 OR DEV>4 THEN OPEN 1,HEV, 
2,im ■ GOTO 63846 

63845 OPEN 1,DEV 

63846 PRINT#1, S$ RTSPC<<40-LEN<Mf))/2)M* 
R$ R$"LINE NUMBERS"FL"TO"LUR$S*R* 

63850 REM RCTIJRL PROGRRM 

63851 LN = FL : C = 0 : CI = 0 

63852 POK.E 252, LN-1 NT < LH/256 ) *256 : POKE 
253,LN/256 

63853 SVS 52992 : CS = PEEK<251) = LN = 
FNDEEK<2525+1 

63860 REM FORMRT OUTPUT INTO 3 COLUMNS 

63861 T$ = LEFTf (STRf<LN-1) + " ",6) 

+LEFTJ (8'TRf<CS> + " ",?> 

63862 FRINT#1,T$j 

63864 C = C+l : IF 0=3 THEN FRI NT# 1 : C 
= 0 : CI =C1+1 

63865 IF CI>=20 RND BEV=3 THEN CI = 0 : 
GOSUB 63998 

63866 IF LNOLL RND PEEKC254) THEN 63852 

63867 FRINT#1,Rf : CLOSE 1 : RETURN 

63898 GET T$ : IF T$="" THEN 63998 

63899 RETURN 
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TAVOLA DI CONTROLLO 


63800 

58 

63801 

63803 

186 

63804 

63830 

33 

63821 


38 

63824 

63836 

14 

63827 

63831 

130 

6333Z 

63834 

38 

63835 

63837 

145 

63838 

63841 

3 

63842 

63844 

118 

63845 

63850 

161 

63851 

63853 

355 

63860 

63863 

168 

63864 

63866 

63899 

306 

142 

63867 


175 

63802 

178 

128 

63810 

179 

33 

63822 

30 

46 

63825 

31 

1 

63830 

53 

140 

63833 

176 

214 

63836 

104 

142 

63840 

131 

133 

63843 

188 

251 

63846 

105 

13 

63852 

207 

119 

63861 

189 

79 

63865 

78 

-10 o 

C.C.C. 

63898 

198 
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APPENDICE B 

MASTERCODE: GUIDA 
DELL’UTENTE 


Il programma Mastercode si divide in quattro sezioni: Monitor, Disassembler, 
File Editor ed Assembler, tutte perfettamente compatibili fra loro. Al momento del¬ 
l’inizio dell’esecuzione di Mastercode, ci sarà una notevole attesa mentre vengono 
generate le complesse tabelle per il Disassembler e l’Assembler. La prima sezione 
del programma disponibile per l’utente è il Monitor - Assembler, Disassembler e Fi¬ 
le Editor sono tutti richiamati dal Monitor come opzioni del menu. 


Monitor 

L’uso del Monitor è semplicissimo. Basta seguire le indicazioni date quando il 
programma viene fatto eseguire. Disassembler e Assembler tornano entrambi al 
Monitor una volta terminati i loro compiti correnti. Il Monitor è l’opzione 0 duran¬ 
te l’uso del File Editor. 


Disassembler 

Il Disassembler è in grado di fornire traduzioni in linguaggio assemblatore di tut¬ 
te le istruzioni macchina del 6502/6510 nel formato standard stabilito dalla Moste- 
chnology (ora parte della Commodore Semiconductor Group), progettista del chip. 

Per usare il Disassembler è necessario solo specificare, in esadecimale, l’indiriz¬ 
zo d’inizio dell’area di memoria da disassemblare. È necessaria una certa attenzio¬ 
ne nella scelta del punto d’inizio corretto, dal momento che un indirizzo iniziale 
non coincidente con il primo byte di un’istruzione macchina risulterà in uno o più 
“???’ o istruzioni tradotte erroneamente prima che il disassembler si sincronizzi con 
la memoria. La ricorrenza di *???’ nel mezzo di un’area disassemblata di memoria 
indica la presenza di tabelle di dati. Le istruzioni disassemblate circondate da indi¬ 
catori *???’ vanno prese con cautela, poiché possono rappresentare byte casuali 
che somigliano a vere istruzioni macchina. Al termine di tabelle di dati si possono 
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verificare altri disguidi, per la stessa ragione del caso in cui si sia specificato un 
punto di partenza non valido. Quando si disassemblano zone successive a tabelle, è 
bene tentare di identificare la fine della tabella iniziando con l’indirizzo dell’ultimo 
*???’ e facendo diversi disassemblaggi, oguno che inizi dal byte successivo, fino a 
trovare un punto di partenza che generi linguaggio assemblatore sensato fin dal 
principio. 

File Editor 

Il file editor è semplicemente un mezzo di immettere una serie di linee numerate 
— non si fanno controlli se si immettano istruzioni valide del linguaggio assembla 
tore. Si possono inserire linee all’interno di file esistenti dando loro numeri appro¬ 
priati. Si possono listare e cancellare blocchi di linee. 

Si possono cancellare linee singole durante l’immissione battendo il numero di li¬ 
nea senza testo seguente (come in BASIC). 

Si possono salvare file non assemblati per un successivo caricamento. Si posso¬ 
no fondere file da memoria esterna con file già presenti in memoria centrale, se la 
lunghezza totale risultante non è superiore a 255 linee — ogni linea può contenere 
solo una istruzione in linguaggio assemblatore. Si possono numerare le linee di un 
file da fondere con un altro già in memoria in modo che cadano all’interno del testo 
presente, all’inizio o alla fine o anche rimpiazzino linee già esistenti. La possibilità 
di ‘change devicc’ (cambio di dispositivo) permette di alterare il numero del disposi¬ 
tivo corrente di I/O, permettendo cosi di salvare file sul dispositivo 4 (stampante) o 
di fare copie di sicurezza su nastro per coloro che lavorano su disco. Non c’è con¬ 
trollo che il dispositivo di I/O corrente sia connesso o sia in grado di salvare o cari¬ 
care. Possono essere aggiunti a un file dati in codice macchina dalla memoria, ma 
essi avranno la forma di byte e non di linguaggio assemblatore. 


Assembler 

L’assembler accetta tutti i codici mnemonici standard nel formato standard, con 
l’eccezione che le virgole vanno sostituite da punti. I principali, comandi disponibili 
per l’assembler sono: 

1 — assemblaggio in memoria: il file immesso per mezzo del file editor viene tradot¬ 
to in codice macchina e piazzato in memoria. Si possono unire programmi a pro¬ 
grammi già assemblati caricando programmi in linguaggio macchina in memoria 
(col file editor) ed iniziando poi l’assemblaggio del secondo programma al byte suc¬ 
cessivo al termine del primo, superando così ogni problema derivante dalla limita- 
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zione di un file a 255 linee. Notate che variabili ed etichette del primo programma 
vanno ridichiarate per il secondo. 

2 — assemblaggio senza introduzione in memoria: il file viene assemblato con una 
lista completa degli indirizzi e del loro contenuto, ma la memoria resta inalterata. 

« 

3 — listing dei soli errori: vengono stampate le sole istruzioni contenenti errori, con 
un’indicazione del tipo di errore. 

4 — listing completo: si stampa il listing completo comprese le indicazioni di errore. 
Notate che se ci sono due errori sulla stessa linea, solo uno verrà indicato. Assem¬ 
blaggi successivi segnaleranno gli errori rimanenti una volta corretto il primo grup¬ 
po. 

L’assembler fornisce sette ‘direttive’ che non compaiono nel programma in lin¬ 
guaggio macchina, ma modificano il modo di assemblare: 

1 — ORG indirizzo: Questa direttiva indica che l’istruzione successiva in linguag¬ 
gio assemblatore dev’essere assemblata all’indirizzo specificato — le istruzioni se¬ 
guenti proseguiranno da quell’indirizzo. Un singolo programma in linguaggio as¬ 
semblatore può contenere parecchie direttive ORG indicanti sezioni di programma 
da piazzare in aree di memoria completamente diverse. 

2 — PRT: Seguendo questa direttiva, l’output del programma assemblato passa 
dallo schermo alla stampante, 

3 — SYM : Ìndica che la tavola simboli, che contiene i valori delle variabili e delle e- 
tichette, dev’essere seguente il listing. 

4 — END: Questa direttiva termina l’assemblaggio — non deve essere per forza al 
termina di un programma. Quando è usata come ultima linea di un programma, il 
suo indirizzo segnala il primo byte di memoria libero che segue il programma as¬ 
semblato. 

5 — BYT: Permette di specificare su una sola linea una serie di valori da un byte, 
separati da punti. I valori verranno immessi direttamente in memoria. 

6 — DBY: Simile a BYT, eccetto che il valore specificato può essere nell’intervallo 
dei due byte (0-65535). I due byte verranno posti in memoria col byte alto per pri 
mo. WRD è identica a DBY eccetto che viene messo per primo il byte basso. Nota¬ 
te che i programmi assemblati possono essere salvati come file di codice macchina 
via Monitor, una volta posti in memoria. 
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APPENDICE C 


MASTERCODEs 
TABELLA DELLE VARIABILI 


AD 

AM 

BASE 

CO 

DEV 

ES 

EA 

EC 

EN 

EO 

ERR 

ERRS 

EXIT 

FALSE 

FI$ 

FL 

FM 

FNDEC 

FNHEX 

FP 

H 

H$ 

INS 

LN 

PTR 

PTR$ 

OP 


Indirizzo corrente in memoria; 

(Assemblaggio in memoria) flag usato nell’assembler; 

Base numerica corrente per le conversioni; 

Continua nel monitor / COmando nel file editor; 

Indica il dispositivo per caricamento/salvataggio; 

Usata nel file editor per registrare le linee vuote; 

(End Address= indirizzo finale) usata nel monitor; 

(Error Count= contatore di errori) nell’assemblaggio; 

(Error Number=numero dell’errore) usata nell’assemblaggio per indi¬ 
care il tipo di errore; 

(Error Only llsting= listing dei soli errori) flag usato nell’assembler; 
Usata per segnalare condizioni di errore; 

Messaggi di errore per l’assembler; 

Le si assegna un valore se l’assembler incontra la direttiva END; 
Valore logico (=0); 

Matrice del file principale nel file editor; 

Linea cui terminare il listing o da cancellare nel file editor; 

Numero di righe in FI$; 

Converte cifre decimali in esadecimali ASCII; 

Converte cifre esadecimali in decimali; 

(Finish Pointer= puntatore al termine) usata da list e delete nel file edi¬ 
tor; 

Usata in routine di conversione — H$ convertita in decimale; 
Stringa generica di ingresso e uscita per numeri esadecimali; 
Variabile generica usata per l’input; 

(Line Number=numero di linea) usata nel file editor; 

Puntatore usato nell’esame delle istruzioni in linguaggio assemblatore; 
Contiene l’ordine degli elementi di FI$; 

Tipo dell’operando: assembler e disassembler; 
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& 

50 — 

O O 

Stringa generica di uscita; 

Stringa generica usata durante la visualizzazione su schermo del con¬ 
tenuto della memoria; 

02$ 

03$ 

PASS 

PO 

Q 

Qi 

Q3 

Ql$ 

RESULT 

SA 

SE 

SL 

SM 

SP 

ST 

STS 

SY 

Come la precedente, usata anche nel disassembler; 

Come 01$; 

Passo corrente dell’assemblaggio in due passi; 

Puntatore al tipo di codice mnemonico; 

Variabile di ciclo usata nell’assembler; 

Indirizzo iniziale della linea che viene assemblata; 

Variabile di ciclo usata nell’assembler; 

Variabile temporanea usata nel formato d’uscita dell’assembler; 
Uscita del valutatore di espressioni; 

(Start Address= indirizzo iniziale) usata da parecchie routine; 
Numero corrente di simboli durante l’assemblaggio; 

(Start Line= linea iniziale) usata in list e delete nel file; editor; 
Massimo numero di simboli nella tavola simboli; 

Puntatore iniziale per list e delete nel file editor; 

Variabile di sistema in BASIC; 

(Symbol Table=tavola simboli) usata in assembler; 

Usata per indicare il trasferimento della tavola simboli in assembler 


T, TA, TB, TO, Tl, T2, ecc. Variabili numeriche temporanee usate in diversi mo 


T$ 

TA$ 

Tl$ 

TERM 

TRUE 

XI 

XY 

XZ 

dilli; 

Variabile stringa temporanea usata in diversi moduli; 

Tabelle di decodifica per assembler/disassembler; 

Variabile temporanea usata in diversi moduli; 

Risultato temporaneo nel valutatore di espressioni; 

Valore logico (=—1); 

Variabile di ciclo usata nel caricatore esadecimale; 

Variabile di ciclo usata nel file editor; 

Come sopra. 
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APPENDICE D 


TABELLA DELLE SUBROUTINE 
DEL PROGRAMMA 
MASTERCODE 


10000 Inizializzazione generale; 

10100 Routine di controllo del monitor; 

11000 Conversione decimale-esadecimale; 

11100 Acquisizione di un byte dalla memoria; 

11200 Ingresso dell’indirizzo finale; 

11250 Ingresso del nome del file; 

11850 Richiesta di continuazione; 

11950 Conversione esadecimale-decimale; 

12050 Ingresso dell’indirizzo iniziale; 

12200 Caricamento di caratteri esadecimali in stringhe; 

13000 Acquisizione di 1 byte dall’utente; 

13100 Modifica della memoria; 

13300 • Trasferimento da memoria a schermo; 

13500 Esecuzione del codice macchina; 

14100 Salvataggio del codice macchina; 

14300 Caricamento del codice macchina; 

15300 Formato dell’operando; 

15450 Formato dell’operando per l’indirizzamento in accumulatore; 
15550 Formato dell’operando per l’indirizzamento implicito; 

15550 Formato dell’operando per l’indirizzamento immediato; 

15600 Formato dell’operando per l’indirizzamento relativo; 

15700 Disassemblaggio di un’istruzione; 

15800 Disassemblaggio di un’area di memoria; 

19000 Inizializzazione tabelle di decodifica; 

20000 Routine di controllo deH’assembler; 

23020 Ricerca del numero di linea nel file; 

23100 Aggiunta di una linea al file; 

23300 Cancellazione di una linea dal file; 
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23400 Listing di una linea del file; 

23500 Acquisizione dei puntatori di inizio e fine; 

23600 Caricamento di un file da un dispositivo; 

23700 Salvataggio di un file su un dispositivo; 

23900 Rimozione degli spazi iniziali; 

24000 Acquisizione del numero di linea dall’input della linea; 

24200 Ingresso delle linee iniziale e finale; 

24300 Inizializzazione del file; 

24400 ' Listing delle linee; 

24500 Cancellazione delle linee; 

24600 Ingresso delle linee; 

24700 Rinumerazione del file; 

24800 Routine di controllo del file editor; 

25000 Aggiunte da memoria al file; 

25500 Cambiamento del numero di dispositivo; 

26000 Ricerca di un simbolo fino ai due punti; 

26100 Determinazione del tipo di operando usato; 

26300 Valutazione del codice operativo; 

26400 Routine di controllo del passo 1; 

26500 Acquisizione della lunghezza dell’istruzione macchina; 

26600 Calcolo della lunghezza della direttiva; 

26900 Trasferimento della tavola simboli; 

27000 Valutazione dell’operando; 

27200 Valutazione della direttiva; 

27400 Valutazione dell’operando immediato; 

27500 Valutazione dell’operando relativo; 

27600 Routine di controllo del passo 2; 

28000 Routine assembler per gli errori; 

28100 Stampa di IN$; 

28150 Ricerca di un simbolo fino a non-cifra/non-lettera; 
28250 Ricerca di un’etichetta in tavola simboli; 

28300 Valutazione di un’etichetta o di un numero; 

28500 Valutazione di un termine; 

28600 Valutazione di un’espressione; 

28700 Aggiunta di un simbolo alla tavola simboli; 

28850 Test per i codici operativi mnemonici. 
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APPENDICE E 


TABELLA DELLE ROUTINE 
ROM RICHIAMATE 


A38A Ricava il primo indirizzo di ritorno sulla pila; 

A47A Stampa ‘READY’ e torna in modo diretto; 

A4A4 Inserisce una linea nel file BASIC; 

A533 Ricollega il file BASIC; 

A613 Converte il numero di linea contenuto in 14-15 esadecimali nelPindiriz- 
zo d’inizio linea in 5F-60 esadec.; 

A65E Esegue CLR; 

A7F7 Converte il valore contenuto nell’accumulatore a virgola mobile #1 in 
un intero senza segno; 

A831 Esegue END; 

A8E0 Stampa ‘RETURN WITHOUT GOSUB’ e torna in modo diretto; 

A8E3 ’ Stampa ‘UNDEFINED STATEMENT’ e torna in modo diretto; 

AD8A Acquisisce un numero in virgola mobile dal programma BASIC e lo 
pone nell’accumulatore v.m. #1; 

AEF1 Valuta un’espressione fra parentesi; 

AEFD Controlla che il carattere seguente nel programma BASIC sia una vir¬ 
gola, altrimenti stampa ‘SYNTAX ERROR’; 

AEFF Controlla che il carattere seguente nel programma BASIC sia uguale 
al contenuto dell’accumulatore, altrimenti stampa ‘SYNTAX ER¬ 
ROR’; 

B248 Stampa ‘ILLEGAL QUANTITY’ e torna al modo diretto; 

B7F7 Converte l’accumulatore a virgola mobile # 1 in un intero senza segno; 

B391 Converte un intero senza segno contenuto in 14-15 in un numero in 

virgola mobile contenuto nell’accumulatore v.m. #1; 

B828 Fine della routine POKE; 

B86A Somma i numeri in virgola mobile degli accumulatori v.m. #1 e #2. Il 
risultato va nell’accumulatore #1.; 
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BA8C 

Copia il numero in virgola mobile indicato dall’accumulatore (byte 
basso) e dal registro Y (byte alto) nell’accumulatore v.m. #2; 

E15F 

E175 

E1D4 

FFFO 

Esegue un salvataggio da memoria su dispositivo; 

Esegue caricamento o verifica da dispositivo; 

Acquisisce i parametri per load e save dal programma BASIC; 

Routine KERNAL che assegna o ricava la posizione del cursore. 
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APPENDICE F 


TABELLA DEI CARATTERI 
DI CONTROLLO 


COME RAPPRESENTATI NEL PROGRAMMA MASTERCODE 


[CDW] 

— Cursore giù 

ICUP1 

— Cursore su 

ICLH] 

— Pulizia dello schermo 

IGRNI 

— Control +6 

(BLU) 

— Control +7 

IRON] 

— Reverse On 

IROF] 

— Reverse Off 



199 



™ -- 

■ 




















SUNSHINE 


Il libro apre nuovi orizzonti a tutti coloro che sono 
interessati alla programmazione in linguaggio macchina del 
Commodore 64. 

La prima parte fornisce il listato completo e commentato 
del programma Mastercode, un potente assemblatore 
scritto in BASIC. 

La secpnda parte presenta una collezione di routine in 
codice macchina, che arricchiscono il BASIC standard 
della macchina con quattordici nuovi programmi. 

Le descrizioni, ampie e precise, delle diverse routine 
costituiscono un’introduzione alle più importanti tecniche 
di programmazione in linguaggio macchina, danno preziosi 
suggerimenti per il miglior utilizzo della ROM del 
calcolatore. 








